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SECTION 1 


INTRODUCTION 


JET 3 is the third in a series of computer progrcims which are intended 
to be made availcdile to the aircraft industry for use in analyzing structural 
response problems such as containment/deflection rings intended to defeat the im- 
pact of aircraft engine rotor fragments. Each of these prograros requires that any 
externally-applied forces which act on the structure being analyzed be prescribed. 

The computer program JET 3, written in FORTRAN IV, permits one to pre- 
dict the large, two-dimensional, elastic-plastic, transient Kirchhof f-type 
responses of a complete or partial single-layer, variable thickness structural 
ring, with various support conditions and restraints; the ring may be subjected 
to arbitrary but prescribed distributions of initial impulse loading and/or 
externally-applied time-dependent forces. The geometrical shapes of the struc- 
tural ring can be simple, circular or arbitrarily curved and with variable 
thickness along the circumferential direction. Strain-hardening and strain- 
rate sensitive material behavior are taken into account. 

The JET 3 program embodies the spatial finite-element and temporal 
finite-difference analysis features. It should be noted that in the two 
previous series of computer programs, JET 1 (Ref. 1) and JET 2 (Ref. 2) , the 
finite-difference method is employed for both spatially- and time-varying 
quantities. The relative ease and versatility with which the spatial finite- 
element method can be applied to a structure with complicated boundary con- 
ditions, geometric shape, and material properties in comparison with the 
finite-difference method is often regarded as an important attribute of the 
finite-element method. Accordingly, the spatial finite-element method of 
analysis is implemented in the present program. The pertinent analytical de- 
velopment and the solution method upon which the JET 3 program is based are 
presented in Ref. 3. The reader is invited to consult Ref. 3 for a very de- 
tailed description of this information. 

Section 2 of this report is devoted to describing concisely the general 
organization and capabilities of JET 3, including (1) structural geometry. 
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prescribed displacement conditions, and restraints accommodated, (2) the 
initial impulse and forcing function provisions, and (3) the solution pro- 
cedure. Next, in Section 3, the main program and subprograms in JET 3 are 
described, including a partial list and explanation of the variable names 
used in the program. The input procedure and output information are presented 
in Section 4. A complete FORTRAN IV listing of the JET 3 program is given in 
Section 5. Example problems, including input data and the resulting solution 
data from JET 3 are given in Section 6. Finally, Appendix A describes the 
equations on which the computer program is based. 
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SECTION 2 


GENERAL DESCRIPTION OF THE JET 3 PROGRAM 


The JET 3 computer program can analyze: 

(a) a structural ring, complete or partial, whose geometrical 
shape can be circular or arbitrarily curved and with vari- 
able thickness. 

(b) a structural ring, with various support conditions, sub- 
jected to arbitrarily distributed elastic restraints. 

(c) a structural ring subjected to arbitrary initial 
velocity distributions. 

(d) a structural ring subjected to transient mechanical 
loads which vary arbitrarily in both space and time. 

The distribution of the initial velocity, and the spatial, as well as 
temporal variations of the transient mechanical load, can be prescribed arbi- 
trarily. However, mainly because of computer storage considerations, only a 
few examples of such variations have been built into the present version of 
jet 3. These will be described in the following subsections after a brief 
description is given of the geometry, prescribed displacement conditions, and 
elastic restraints that are available in the program. The user should provide 
the necessary subroutines and modifications to handle other types of forcing 
functions and/or initial velocity distributions, which are more closely attuned 
to his needs. 

2 . 1 Geometry, Prescribed Displacement Conditions, and 
Elastic Restraints 

In the present analysis, the transient structural responses of the ring 
are assumed to consist of planar (two-dimensional) deformations. Also, the 
Bernoulli-Euler (or Kirchhoff) hypothesis is employed; that is, transverse 
shear deformation is excluded. In the structural finite-element context, such 
problems are termed "one dimensional". 

The geometrical shapes of the ring that can be treated are divided for 
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convenience into the following four groups (as shown in Fig. 1) : 

(1) Circular partial ring with uniform thickness 

(2) Circular complete ring with uniform thickness 

(3) Arbitrarily curved partial ring with variable thickness 

(4) Arbitrarily curved complete ring with variable thickness 

For each of these four configurations, the cross sections of the ring are 
assumed to be rectangular in shape. 

In the spatial finite-element analysis, the ring is represented by an 
assemblage of discrete (or finite) elements compatibly joined at the nodal 
stations. The geometry and nomenclature of a typical simple circular ring 
element and an arbitrarily curved ring element are shown in Figs. 2a and 2b, 
respectively. The behavior of each finite-element is characterized by a 
knowledge of the four generalized displacements: v, w, \p = (3w/3ri) - (v/R) , 
and X = Ov/3n) + (w/R) at each of its nodal stations, where v and w are 
the midplane displacements in the circumferential and normal direction, 
respectively; R is the radius of curvature, and ri is the length coordinate 
measured along the centroidal axis (meridian) of the ring. The displacement 
behavior within each finite-element is represented by a cubic polynomial in 
n for the circumferential displacement v and a cubic polynomial in n for the 
normal displacement w, anchored to the four generalized nodal displacements 
at each node (see Appendix A and/or Ref. 3 for further details) . For applica- 
tion to arbitrarily curved, variable thickness, ring structures, the finite 
elements are described by reading in at each nodal station the two coordinates 
Y and Z, the slope, and the thickness of the discretized structure, where 
X, y, Z represent global reference Cartesian coordinates. Within each element, 
the slope is approximated by a quadratic function in n and the thickness is 
approximated as being piecewise linear between nodes. For application to a 
circular, uniform thickness, ring structure, and in view of the computer 
storage and operation considerations, the structure is modeled by uniform- 
mesh, uni form- thickness , circular ring elements. The local reference coordi- 
nate system of each element is arranged to take advantage of the symmetry of 
the element geometry. In the present report, separate groups of programs 
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will be used to handle uniform thickness circular ring structures and the 
more general variable-thickness, arbitrarily-curved ring structure, respec- 
tively. 

As for the support conditions of the structure, the JET 3 program in- 
cludes three types of prescribed nodal displacement conditions (see Fig. 3a): 


(1) 

Symmetry 

(V = 1*^ = 0) 

(2) 

Ideally-Clamped 

(v = w = {p = 0) 

(3) 

Smoothly-Hinged 

(v = w = 0) 


and two types of elastic restraints (see Fig. 3b) : 

(a) Point elastically restrained (elastic restoring 
spring) at given locations 

(b) Distributed elastically restrained (elastic 
foundation) over a given number of elements. 

A global effective stiffness matrix supplied by the elastic foundation 
and/or the restoring springs will be evaluated in the program from the virtual- 
work statement, for the case in which the structure is subjected to one or 
both of these two types of elastic restraints. 

2.2 Initial Velocity Provisions and/or Externally- 
Applied Forces 

2.2.1 Initial Velocity Provisions 

The initial velocity distribution is specified by reading in the initial 
nodal velocities. Three ways are available to describe these distributions 
(see Fig. 4) : 

(1) Arbitrary distribution by prescribing nodal initial 
velocities, v, w, and ip at certain nodes of the 
structure. 

(2) One or more local uniform initial normal velocity 
values, w, distributed over certain elements of the 
structure, and/or 

(3) One or more local sine-shaped distributions of initial 
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velocity in the normal direction, distributed over certain 
elements of the structure. 


2.2.2 Transien t Externally-Applied Loads 

The transient externally-applied loads, F(n,t), are assumed to be 
expressible as 

/(tj 

where g(n) is the prescribed spatial distribution function and f(t) denotes 
the amplitude time history. These quantities are described in the program 
as follows (see Fig. 5) : 


(a) The function f(t) can be arbitrary and is represented 
by a series of coordinates in time which specify values 
of characteristic two-component (normal and circumfer- 
ential) forces on the force versus time curves. The pro- 
gram then linearly interpolates between time points to 
obtain values of forces at intermediate times by: 

' m -*- 1 ' m 

where f^ and are the amplitudes of the forces at some 

user-specified times T^ and The quantity f(t) is 

found by this interpolation in the time interval (T to T ) 

m m+1 

linearly in terms of f and f 

m ra+1 

(b) The spatial distribution of the forces acting on the ring 
is described through the following three forms: 

(1) One or more concentrated loads prescribed at 
certain locations 

(2) One or more local uniform load distributions 
specified over given numbers of elements 

(3) One or more local half sinusoidal-shaped load 
distributions specified over given numbers of 
elements (this distribution is approximated 
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as being piecewise linear within each element) 


Corresponding to this general distribution of externally-applied loads, 
a set of virtual-work equivalent (or consistent) nodal loads is evaluated in 
the program. 


2.3 Solution Procedure 


The spatial finite-element approach is utilized in conjunction with the 
Principle of Virtual Work and D'Alembert's Principle to obtain the equations 
of motion of the structural ring which is permitted to undergo large-deflec- 
tion elastic-plastic transient deformations. In the interest of conciseness 
and convenience in this report, the user is invited to consult Ref. 3 and/or 
Appendix A for a detailed derivation and discussion of the equations of motion. 
For present purposes, it suffices to note that the governing equations of 
motion for the complete assembled discretized structural ring may be written 
in the following conventional form; 

... 


where 

{q*} and {q*} 

[M*] 

[K*] 

[K* ] 
s 


{f*} 


{*nl 

q 


} 


are the global generalized displacement and 
acceleration 

is the mass matrix of the complete structure 
is the usual stiffness matrix of the complete 
structure 

represents the effective stiffness matrix 
supplied by the elastic foundation and/or 
the restraining spring 

denotes the prescribed externally-applied 
generalized loading acting on the structure 
represents a "generalized loads" vector 
arising from large deflections and is a func- 
tion of quadratic and cubic displacement terms — 
a nonlinear force contribution. 
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} 


is the generalized loads vector arising from the 
presence of plastic strains, and is associated 
with the linear terms of the strain-displacement 
relations. 

is a generalized loads vector of origin similar 

r*Li 

to IF ) but is associated with the nonlinear 
P 

terms of the strain-displaceraent relations. 


Alternatively, by carrying out the reduction process differently, a 
much simpler, unconventional form (called "improved formulation" in Ref. 3) 
of the equations of motion may be obtained and appears as; 

MHiffi =\r\-[K]\f\ U.3, 

where the quantities [M’*] , {q*},{q*}, {f*} and retain the meaning given 

following Eq. 2.2. However, {p*} represents not only [K*] {q*} of Eq. 2.2 but 
also some plastic behavior contributions. The term [H*]{q*} represents 
"generalized loads" arising from both large deflections and plastic strains. 

The resulting equations of motion, Eq. 2.2 or Eq. 2.3, are solved by 
applying an appropriate timewise finite-difference operator whereby one ob- 
tains a recurrence equation which provides a solution step-by-step in finite- 
time increments. 

A wide variety of timewise finite-difference operators has been de- 
veloped; a brief discussion of the advantages and disadvantages of some of 
these operators may be found in Section 3 of Ref. 3. However, based on the 
present information, it is still not conclusive as to whether any one timewise 
operator is superior to the others for analyzing nonlinear transient response 
problems of the present type. 

Two options are provided in this report: (1) the explicit 3-point 
central difference operator is employed to solve the equations of motion ex- 
pressed in the unconventional form, Eq. 2.3, (2) the implicit Houbolt operator 
(4-point backward difference) is chosen to solve the equations of motion ex- 
pressed in the conventional form, Eq. 2.2. 
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Based on computing experience, the first option is much more simple 
and requires a minimum of storage and operations within each time step of 
calculation for advancing the solution ahead in time. However, it should be 
noted that in order for the 3-point central-difference operator to provide a 
reliable prediction, the time-step size. At, employed must be small enough. 

The following procedures are built into the computer program utilizing this 
central-difference operator so that the time-step size. At, can be either 
specified by the user or the program will compute the largest natural fre- 
quency, 0 ) of the system and will then choose a value of At = 0.8 (2/to ) 

max max 

where At „ < 2/oj is the stability criterion of a corresponding linear 
cx, — max 

dynamic system; the factor 0.8 is introduced in order to take the large de- 
flection effects into account. The o) , which represents the largest natural 

max 

frequency contained in the (linear) mathematical model of the structure, is 
obtained by an iteration process applied to 

The second option is provided in this report, because of the fact that 
a "larger At" which will provide an acceptably accurate solution is permitted 
by the Houbolt operator, compared with the stringently small At permitted by 
the 3-point central-difference operator to avoid numerical instability. This 
may result in the saving of computing time for a given period of actual struc- 
tural response to be computed. However, it has been demonstrated (Refs. 3 
and 4) that the Houbolt operator which is unconditionally stable for linear 
structural response problems exhibits a degradation of predicted response for 
large-deflection nonlinear response problems unless a suitably small At is 
used. Thus, the selection of a suiteible At to insure a reliable solution 
should be guided by numerical experimentation. Also, the Houbolt method is 
implicit in nature; that is, the generalized nodal forces (which may be due to 
large-deflection and elastic-plastic effects) at each time step depend on 
the displacement (or stress and strain) at that time instant, but this informa- 
tion remains to be determined; thus, extrapolation (or iteration) is needed at 
each time step of calculation. Linecir extrapolation by using the generalized 
nodal forces at two previous time steps is employed in the present analysis. 
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In the following, tlie general solution process is described briefly 
(see the information flow chart of Figs. 6a and 6b for, respectively, option 1, 
the central difference operator and option 2, Houbolt's operator). 

First, information is provided to define the geometry of the ring in- 
cluding its prescribed displacement conditions and elastic restraints. In 
addition, the material property constants, as well as the prescribed initial 
velocity and/or the prescribed applied transient external loading are defined. 

Also defined is the structural discretization information and numerical integra- 
tion data. It should be mentioned that Gaussian quadrature is employed in the 
present analysis to evaluate the element-property matrices — this requires that 
the stresses and strains be evaluated at a selected finite number of Gaussian 
stations over the "spanwise" and depthwise region of each finite element. Next, 
the mass matrix and the stiffness matrix for the entire structure are evaluated by 
assembling the element mass and stiffness matrices. Then the proper prescribed dis- 
placement conditions are imposed and a reduced mass matrix and stiffness matrix are 
obtained by deleting the corresponding rows and columns associated with those 
generalized displacements which are prescribed to be zero. Also constructed 
are the discrete-element property matrices that do not change with time (and 
remain constant throughout the program) , such as the strain-nodal generalized 
displacement transformation matrices , the equivalent nodal load vector and 
actual externally-applied load transformation matrices , etc. 

Starting from a set of given initial conditions at time t^ on the gen- 
eralized nodal displacements, nodal velocities, and externally-applied forces, 
the generalized nodal displacements and displacement increments are computed 
for the first time increment At. Next, the strain increment developed from 
t^ to t^ at every Gaussian station (or point) required over and depthwise 
through each finite element are calculated. From a knowledge of the prescribed 
initial stresses (if any) and the strain increments, one can determine the 
stress increments , the stresses and/or the plastic strains and the plastic 
strain increments through the use of the pertinent elastic-plastic stress- 
strain relations including the plastic yield condition and flow rule. Next, 
one can calculate the equivalent generalized load vectors due to large deflec- 
tions and plastic strains. Also, the prescribed generalized load vector due to 
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externally-applied loads at the present time step is calculated. Then, the 
proper recurrence equations , which is the finite-difference representation 
of the equations of motion, are solved to obtain the nodal generalized dis- 
placements and displacement increments of the next time increment. The process 
then proceeds cyclically for as many time steps as desired. Finally, it should 
be noted that the Choleski scheme is employed to solve the system of ordinary 
algebraic equations . 

For present purposes , the above general description is considered to 
be adequate; one may consult Ref. 3 and Appendix A for a more detailed dis- 
cussion of the solution and evaluation process. 
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SECTION 3 


DESCRIPTION OF PROGRAI'IS AND SUBPROGRAMS 
3.1 Program Contents 

In order to provide the necessary capability and versatility and at 
the same time to keep the program concise, JET 3 is composed of the following 
four separate groups of programs : 

(1) JET 3A ; This group of program handles uniform- thickness , 

circular , complete, and/or partial rings and em- 
ploys the timewise 3-point central-difference 
operator . 

(2) JET 3B ; This group of program handles uniform-thickness, 

circular, complete, and/or partial rings and em- 
ploys Houbolt's timewise finite-difference opera- 
tor. 

(3) JET 3C ; This group of program handles variable-thickness, 

arbitrarily-curved, complete, and/or partial rings; 
the timewise 3-point central-difference operator 
is employed. 

(4) JET 3D ; This group of program handles variable- thickness, 

arbitrarily-curved, complete, and/or partial rings; 
Houbolt's timewise finite-difference operator is 
employed . 

Each of the four groups of program consists of a main program and several sub- 
routines. Also, depending upon whether the structural configuration to be 
analyzed is a complete or a partial ring, the main program and some of the 
subroutines are modified accordingly. 

The main program and the name of each subroutine are listed in the 
following with a brief description of its functions. It should be noted that 
the subroutine name and its function which are presented in Subsection 3.1 
are those which are common to all four groups of programs. 
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MAIN 


ASS EM 


ASSEF 


I DENT 


II-IPULS 


PRINT 


Reads the ring geometry, material property data, the 
structural discretization information, and/or the pre- 
scribed displacement conditions and elastic restraints. 

It computes the quantities that are constant throughout 
the program and initializes most of the variables used 
in the subroutines. It controls the logical flow of 
information supplied by the various subroutines and the 
overall time cycle. 

This subroutine updates the structural mass (and/or stiff- 
ness) matrix as the element mass (and/or stiffness) matrices 
are generated. The components of the assembled structural 
mass matrix [M*] , which is a symmetric matrix, are stored in 
a linear-array form; only the lower triangular part of [M*] 
need be and is stored (row-wise) starting with the first 
nonzero element in the row and ending with the diagonal 
term. Similar handling of the assembled stiffness matrices 
( [K*] and [K*J) of the structure is employed. 

This subroutine assembles the generalized nodal load vectors 
(due to externally-applied forces and/or large-deflection 
elastic-plastic effects) of each individual element into a 
generalized nodal load vector for the structure as a whole. 

The IDENT subroutine is used to print out at the beginning 
of the run, the values of certain input parameters, and is 
used to identify the type of run that is being made. 

The information for the initial generalized nodal velocities 
is read in. This subroutine also sets the initial generalized 
nodal displacements, the initial stresses, and/or the initial 
plastic strains to be equal to zero. 

The PRINT subroutine evaluates the strains on the inner and 
the outer surfaces at the midspan point of each element, and 
computes the relevant energies. An inspection process to 
find the maximvun strain and to test for "material failure" is 
done in this subroutine. PRINT also controls the program out- 
put and format. 
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EU-IPP 


ERC 


PAC 


FIC0L 


L0ADEQ 


L0ADFT 


MINV 


0MULT 


This subroutine evaluates the element mass matrix [m] , and/or 
element stiffness matrix [k] , for each discrete element, and 
then performs discrete element assembly to form [M*] and/or 
[K*] for the complete structure with respect to global coordi- 
nates. Next, the appropriate prescribed displacement condi- 
tions (if any) are imposed on [M*] and/or [K*] to form re- 
strained matrices. Also evaluated are the transformation 
matrices between the strain at each spanwise checking (Gaussian) 
station and the generalized nodal displacements of the element. 
Imposes the proper prescribed displacement conditions to the 
[M*] and/or [K*] matrices by restraining the corresponding 
rows and columns of the matrices. 

FAC factors a symmetric matrix, [B] into a lower triangular 

matrix [L] and an upper triangular matrix [L] according to 

T 

the Choleski scheme; [B] = [L] [L] . 

Finds the corresponding location of an element in the linear- 
array expression to a location in a two-dimensional array ex- 
pression of the [M*J and/or [K*] matrices. 

Computes the transformation matrices between the element 
generalized (virtual-work equivalent) nodal load vectors 
and the externally-applied mechanical load which may be 
concentrated, uniformly distributed, and/or linearly dis- 
tributed within the element. 

This subroutine reads the data pertaining to the subsequent 
time-dependent externally-applied loads and uses these data 
to compute the element generalized load vectors and, sub- 
sequently, an assembled generalized load vector for the 
whole structure is formed at each time step of calculation. 
Performs the matrix inversion; a standard Gaussian-Jordan 
inversion method is used. 

Computes various linear arrays (in which a two-dimensional 
matrix is stored) and vector products. A vector results. 
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QREM 


S0LV 


STRESS 


TSTEP 


Evaluates the effective stiffness matrix [K*] , supplied by 

the elastic foundations and/or the restoring springs , and 

then imposes the prescribed displacement conditions on 

[K*] accordingly, 
s 

Performs two back substitutions involving the factorized 
form of a matrix by the Choleski method to obtain the solu- 
tion of a matrix equation. 

This subroutine evaluates the generalized load vectors, 

({P*} + lH*]{q} of Eq. 2.3 and/or {f^} + {f^^} of 

' q p p 

Eq. 2.2) arising from the presence of large-deflections and 
elastic plastic strains. First, the stresses and/or plastic 
strains cu:e determined at each quadrature station, which 
involves the use of the strain-displacement relation and the 
stress-strain relation. The strain-hardening and strain- 
sensitivity effects are taken into consideration. Next, the 
appropriate Gaussian integration scheme is used to form the 
element generalized nodal load for each discrete element, 
and finally, an assembled generalized nodal load vector is 
calculated. 

This subroutine is contained only in the JET 3A and the JET 3C 
computer programs wherein the timewise 3-point central-differ- 
ence operator is employed. It is called when the time-step 
size. At, is not specified by the user. It finds the highest 

natural frequency , o) , in the mathematical model of a 

max 

corresponding linear dynamic system [M*] {q} + [K*]{q*} = 0 

by using an iteration process , and then a value of At = 

0.8(2/w ) is chosen for use in the program, 

max 
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3.2 Partial List of Variable Names 


3.2.1 Variables Having the Same Definition in 
JET 3A, JET 3B, JET 3C, and JET 3D 


A(I,J) 


AMASS (I) 


AMP1FV| 
AT4P1FW j 


At4P2FV 

AMP2FW 


AMPFV 

AMPFW 


ANGV 

ANGVl 

ANGV2 

APD 

APDEN 

B 


[A] , an 8x8 matrix, of Eq. A. 10 or Eq. A. 41 defines the 
transformation between the element generalized nodal 
displacements {q} and the parameters {0} in the assumed 
displacement field of each element. It is destroyed 
in computation and is replaced by its inverse [A . 

The lower triangular part of the symmetric structural 
mass matrix [M*] (stored in a linear-array form of 
size ISIZE) . Later on, it is destroyed in calculation 
and is replaced by a lower triangular matrix of a fac- 
torized matrix according to the Choleski method. 

Initial nominal amplitudes (at time TBEGIN) of the ex- 
ternally-applied forces in the circumferential and the 
normal direction, respectively. 

Nominal force amplitudes, in the circumferential and the 
normal direction, respectively, of each succeeding point 
on the force versus time curve to be prescribed. 

The linearly-interpolated values of the nominal force 
eunplitudes in the circumferential and the normal direction 

respectively, at the current time instant. 

• • • 

Initial angular velocity, ij; = (9w/9n - v/R) , at time zero. 
Initial angular velocities at the two edge nodes of the 
local uniform initial normal velocity distributed over cer 
tain elements of the structiare. 

Work done on the structure by externally-applied forces 
during the current time step. 

Total work done on the structure by externally-applied 
forces up to the present time step. 

Width of the ring 
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BEl (J,I ,K) 


BEPS (I) 
BEPX 


BIG 

BINP(I,J) I 
Blf^IP (I ,J) J 

BINPP (J) 1 
BIMPP ( J) I 

BMASS(I) 


Bl&NE 

BTIME 

C5 

C6 

CEPS (J, I) 

CINE (I) 

Cl NET 

CINET0 
Cl NETT 


The transformation matrix which relates the strain at Jth 
spanwise Gaussian station to the parcimeter {6} in the 
assumed displacement field of each element. Equals 
[B^] [U] , I = 1, 2, 3 (see Eq. A. 14a or Eq. A. 42c). 

[D^]{Aq}, I = 1, 2, 3 (see Eq. A. 15a). 

Strain increment during the current time step at the 
selected Gaussian station (over spanwise and depthwise 
region of each element) . 

The largest computed strain up to the present cycle. It should 
be noted that strains are computed only at every printout cycle. 
The longitudinal force and the bending moment, respectively, 
over the cross section at the Jth spanwise Gaussian station 
of the Ith element (see Eq. A. 33) . 

The integration of the plastic strain over the cross 
section at the Jth spanwise Gaussian station of each ele- 
ment (see Eq. A. 36). 

The lower triangular part of the symmetric structural mass 
matrix, [M*] , (stored in a linear-array form of size 
ISI2E) . 

The highest natural frequency of a corresponding linear 
dynamic system. 

The time at which the largest computed strain occurs . 

Equals l./P if the material is strain rate dependent 
(Eq. A. 37) . 

Equals l./(DSxDELTAT) ; see Eq. A. 37. 

Equals [D^]{q} , I = 1, 2, 3 (see Eq. A. 15) at the Jth 
spanwise Gaussian station of each element. 

A work vector used in the calculation of kinetic energy 
of the structure. 

Kinetic energy of the structure at the current time 
instant. 

Initial kinetic energy imparted to the structure. 

Total work done by all external agencies (externally- 
applied forces and initial imparted kinetic energy) up 
to the current time step. 
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c«5py(j) I 
C^PZ(I) J 

GRITS 

DDELD(I) 

DELD(I) 

DELTAT 

DENS 

DESNP 


DET 
DIS (I) 

DISMl(I) 

DISM2(I) 


DISP(I) 

DS 

BLAST 

ELF(I) 

ELFP(I) 


ELK(I,J) 
ELMAS (I,J) 


Current Y coordinate and Z coordinate, respectively, of the 
Ith node. 

Critical value of tensile strain at which the material will 
"fail" (or fracture will appear) . 

Vector of dimension NI , contains the initial generalized 
nodal acceleration defined by Eq. A. 65. 

Vector contains the generalized nodal displacement increment 
during the current time step. 

Time-step size used in the program. At. 

Densityof the material (Ib-sec^/in'^) . 

Plastic strain increment during the current time step at 
each mechanical sublayer at any selected Gaussian station 
(over the spanwise and the depthwise region of each element) . 
Resultant determinant of matrix [A] 

Vector contains the generalized nodal displacement at the 

next time instant defined in Eq.A.53a or Eq. A. 57) 

Vectors contain the generalized nodal displacements at one 

previous time instant and at the two previous time instants, 

respectively (defined by {q*} , and {q*} _, respectively, 

m-l m~z 

of Eq. A.57) . 

Vector contains the generalized nodal displacement at the 
current time instant. 

Material constant used in the strain-rate sensitivity 
formula (see Eq. A. 37). 

Total elastic energy present in the structure at the present 
time instant. 

Element generalized nodal load vector due to externally- 
applied forces (see Eq. A. 20 or Eq. A. 45). 

Element generalized nodal load vector due to large deflections 

and elastic-plastic strains; it equals {p} + [h]{q} for JET 3A 

and JET 3C, and equals - ({f^^} + {f^} + {f^^}) for JET 3B 

q P P 

and JET 3D. 

Element stiffness matrix of dimension 8x8 (Eq. A. 26a or 
Eq. A. 47d) . 

Element mass matrix of dimension 8x8 (Eq. A.18C or Eq. A. 44) . 
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ELRP (I ,J) 

EPS (L) 

EPSI(I) I 
EPS0(I) j 


Element effective stiffness matrix of dimension 8x8 supplied 
by elastic restraints (Eq. A. 29a or Eq. A.48) . 

Input quantities of abscissa of the uniaxial stress-strain 
curve for the Lth mechanical sublayer material model. 

Axial strain on the inner surface and on the outer surface, 
respectively, at the midspan point of element I. 


EPSLN 


ES(I) 

FAILI(I) 1 
FAIL0(I) j 

FARE ] 
FOUR J 
FLN(I) 

FLR(I) 

FLVA(I) 


Fi:-1ECH(I) 

FMV I 
FMW J 

FQREF(I) 

FREQ 

HNL(I) 


Convergence criteria for the determination of the highest 
natural frequency of a corresponding linear dynamic system 
by employing an iteration process (used in subroutine TSTEP) 
The slope of the Ith segment in the piecewise linear approxi- 
mation of the material uniaxial stress-strain curve. 

Print out an at the printout cycle during which the cixial 

strains first exceed the critical value on the inner surface, 
and/or outer surface, respectively. 

Midplane axial strain and curvature increment, respectively, 
at the selected spanwise Gaussian station of each element. 
Vector contains the generalized nodal load due to large 
deflections and plastic strain at one previous time instant. 
Vector contains the generalized nodal load equivalent to the 
externally-applied forces. 

Assembled generalized load vector due to large deflections 

and elastic-plastic strains. It equals {p*} + [H*]{q*} in 

JET 3A and JET 3C, and equals - ({f^^} + {f^} + {f^^}) in 

q P P 

JET 3B and JET 3D. 

Assembled generalized load vector due to externally-applied 
forces. 

Linear interpolated values of the nominal amplitude of the ex- 
ternally-applied forces in the circumferential and the normal 
direction, respectively. 

Assembled generalized load vector supplied by elastic 
restraints equals [K*] {q*} of Eq. 2.2 or Eq. 2.3. 

The highest natural frequency of a corresponding linear 
dynamic system. 

Work vector of dimension 8, required for the evaluation of 
element generalized nodal load vector due to large deflections 
and elastic-plastic strains. 
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IBIG 

IC0L(I) 


IDET 



IK 

INUM(I) 


I0TA 

1 0TB 

I0TC 

ISl 

TS2 

ISIZE 

ISURF 

IT 

ITT 

JELEM(I) 

KR0W(I) 

LMI (I) 

MM 

Ml 

M2 


The element number whose midspan computed strain exhibits 
the largest value during the present computer run. 

Vector, of length NI , contains the column number of the 
first nonzero entry in the Ith row of the structural 
mass and/or stiffness matrix. 

Work parameter used in subroutine FAC 

The first element and the number of elements, respectively, 
over which the local uniform initial normal velocity is to 
be prescribed. 

Number of discrete elements into which the whole structure 
is discretized for analysis. 

Vector of dimension NI contains the corresponding position 
in the linear-array of the first nonzero entry in the Ith 
row of the structural mass or stiffness matrix. 

Number of local uniform initial normal velocity distribu- 
tions. 

Number of nodes at which the initial generalized nodal 
velocity components are to be prescribed. 

Number of local sine-shaped initial normal velocity 
distributions . 

The first element and the number of elements, respectively, 
over which the local sine-shaped initial normal velocity is 
to be specified. 

Number of locations required for the storage of the structural 
mass or stiffness matrix in linear-array form. 

Equals 1 means largest computed strain occurs on the inner sur- 
face; equals 2 means on the outer surface. 

Current time-step (cycle) number 
Work parameter equals IT + 1. 

The element number at which the Ith concentrated load is 
to be specified. 

The row number of the Ith irregular row in the structural 
mass or stiffness matrix... 

Work vector of length 8 used by subroutine MINV. 

Time step (cycle) at which run is to stop. 

Cycle at which regular printing starts 
Printout will occur every M2 cycles. 
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MCRIT 

MMI (I) 
MREAD 
I-IWRITE • 
MPUNCH 

NBC (I) 
NBC0ND 

NDEX(I) 

NELF2(I) 

NELF3(I) 


NFL 


NI 


NIRREG 


NL0AD 

N0DEB (I) 

N0DEV 

N0FT1 
N0FT2 " 
N0FT3 


A dummy variable which controls the print of "*" at the printout 
cycle when the strain (s) first exceeds the critical value. 

Work vector of length 8 used by subroutine MINV. 

Number for the data input tape unit, printed output tape 
unit, and the punched output tape unit, respectively. 

These names must be assigned numbers in MAIN corresponding 
to the user's computing facility requirements. 

The prescribed-displacement condition identification number. 

The number of nodes at which the prescribed displacement 
conditions are to be specified. 

The corresponding position in the linear-array of the 
first nonzero entry in the Ith irregular row. 

The number of elements over which the Ith local uniformly 
distributed externally-applied load is to be specified. 

The number of elements over which the Ith local sine- 
shaped distributed externally-applied load is to be 
specified. 

The number of depthwise Gaussian points through the thickness 
for the numerical evaluation of stress resultants (axial forces 
and bending moment) at each spanwise Gaussian station. 

Total number of degrees of freedom (unrestrained) ; it equals 
the number of nodes times 4. Also, it is the number of rows 
in the assembled structural mass or stiffness matrix. 

Number of irregular rows in the assembled structural mass 
or stiffness matrix. 

Equal 1 means external forces are acting during the current 
time step; equal to 2 means not acting. 

The node number at which the prescribed displacement condition 
NBC (I) is to be specified. 

The node number at which the initial generalized nodal velocity 
components are to be specified. 

The number of concentrated loads, the number of local uniform 
load distributions, and the number of local sine-shaped load 
distributions, respectively, which are to be prescribed over 
the structure. 



N0GA 


N0RP I 

N0RU J 


NQR 

NREADF 

NREL(I) 

NRST(I) 
NREU(I) J 

NSFL 


NSTF2 (I) 
NSTF3(I) 
NV 
P 

PIE 

PLAST 

PM(I) I 
PN(1) J 


The number of Gaussian stations to be employed for the 
spanwise mmerical integration of the element properties 
over each element. 

The nuiober of point elastic restraints (elastic restoring 
springs) and the number of locally distributed elastic 
restraints, respectively, which are to be specified over 
the structure. 

Indicator, which if > 0 indicates that this structure is 
subjected to elastic restraints (point and/or distributed) . 
Dummy variable which controls the reading-in of force-time 
data. 

The element number at which the Ith point elastic restraint 
is to be specified. 

The first element and the number of elements, respectively, 
over which the Ith distributed elastic restraint is to be 
specified. 

Equals the number of mechanical sublayers in the strain- 
hardening material model; also is the number of coordinate 
pairs defining the piecewise linear stress-strain curve of 
the material. 

The first element number at which the Ith local uniform 
load distribution is to be specified. 

The first element number at which the Ith local sine-shaped 
load distribution is to be specified. 

Indicator, which if > 0 indicates that initial velocity 
distributions are to be specified over the structure. 

Constant used in the strain-rate sensitivity formula 
(see Eq. A. 37) . 

Represents ir = 3.14159265. 

Total plastic work done on the structure up to the current 
time step (mechanical work dissipated during plastic flow) . 
Work vectors of dimension 8, required for the evaluation of 
element generalized nodal load vector due to large deflections 
and elastic-plastic strains. 
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RT0V(I) I 
RT0W(I) J 

RT02V(I) I 
RT02W(I) J 

RT03V(I) 1 
RT03W(I) ] 

SCTP I 
SCRP J 

SCTU '[ 
SCRU J 
SIG(L) 


SL0PEV I 
SL0PEW j 


SN0(I) 

SNP(I,J,K,L) 


SNS (I ,J ,K,L) 


SNY 

S0L(I) 

SPDEN 


The normalized values of the Ith concentrated load with 
respect to the nominal amplitudes in the circumferential 
and the normal direction, respectively. 

The normalized values of the Ith local uniform load distri- 
bution with respect to the nominal amplitudes in the cir- 
cumferential and the normal direction, respectively. 

The normalized values of the Ith sine-shaped load distribu- 
tion with respect to the nominal amplitudes in the circxamfer- 
ential and the normal direction, respectively. 

The translational and torsional restoring spring elastic 
constants, respectively. 

Elastic foundation modulus in translation and torsion, 
respectively. 

Input quantities for the ordinate of the uniaxial static 
stress-strain curve for the Ltli mechanical sublayer ma- 
terial model. 

Slopes of the piecewise linear segment approximation of 
nominal force versus time curve in the circumferential and 
the normal direction, respectively, at the current time 
instant. 

Uniaxial static yield stress of the Ith mechanical sublayer 
material model. 

The total plastic strain of the Lth mechanical sublayer at 
the Ktii depthwise Gaussian point at the Jth spanwise Gaussian 
station of the Ith element. 

Axial stress on the Lth mechanical sublayer at the Kth depth- 
wise Gaussian point at the Jtli spanwise Gaussian station of 
the Ith element. 

Uniaxial yield stress of the mechanical sublayer, taking 
strain-rate sensitivity into account. 

Contains the solution vector of a system of matrix equations. 
Total energy stored in the elastically-restoring springs and/or 
the elastic foundations at the current time instant. 
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SPRIN(I) 

STIFK(I) 



TBEGIN 
TFINAL J 
TIME 
TRIAL (I) 

TWG(I) I 
TXG(I) J 


VRAU 

WRAD 

WRADl I 
WRAD2 J 

Y0UNG 

Y(I) 
Z(I) 


The assembled effective stiffness matrix supplied by elastic 
restraints (stored in a linear array form) . 

Assembled structural stiffness matrix, stored in a linear- 
array form. 

Times at which a linear segment of the force versus time 
curve starts acting and stops acting, respectively. 

Times when overall externally-applied forcing function starts 
acting and stops acting, respectively. 

Current time (ITxDELTAT) 

Mode shape corresponding to the highest natural frequency of 

the finite-element representation of a linear dynamic system. 

Input vectors with dimension NFL; contain Gaussian quadrature 

constants x. and weights, w. , of 

,1 1 

f(X)d2 = II f(X^ ) Wi 

used in the numerical integration of stresses and/or plastic 
strains through the thickness. 

The value of the initial tangential velocity to be specified 
at the node of the element. 

The value of initial normal velocity to be specified for the 
local uniform initial normal velocity; also is the peak value 
of the sine-shaped initial normal velocity distribution. 

The values of the initial normal velocity at the two edge 
nodes of the local uniform initial normal velocity distributed 
over certain elements of the structure. 

Elastic (Young's) modulus (the slope of the 1st segment in the 
piecewise linear approximation of the uniaxial stress-strain 
curve) . 

Initial Y coordii.ate and Z coordinate, respectively, of the 
Ith node. 
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3.2. 2 Variables Appearing Only in JET 3 A and JET 3B 


AL 

ASFL(K,L) 


AX 

AXG(I) 

AWG(I) 


BEP(J,I ,K) 


BL 

BX 

D(I,J) 

E(I,J) 

ELR(i,j) 


ETA (I) 


EXANG 
FMld ,M,N) 


Element arc length (uniform circular ring element) . 
Stress and/or plastic strain weighting factor on the Lth 
mechanical sublayer at the Kth depthwise Gaussian point 


(equals 


TWG (K) 
2 


X B X 11 X 


ES(L) - ES(L+ 1) j 
ES(1) 


Subtended angle of the uniform circular ring element. 

Input vectors with dimension NOGA; contain Gaussian quad- 
rature constants, x. , and weights, W. of 

f' = r w, 

employed in the spanwise numerical integration over each 
element. 

Transformation matrix which relates the strain at the Jth 
spanwise Gaussian station to the element generalized nodal 
displacements ([D^J, I = 1, 2, 3, see Eq. A. 42b). 

Total arc length of the circular ring. 

Total subtended angle of the circular ring (radians) . 

A work matrix of dimension 8x8 for the evaluation of element 
matrix (equals [m^] of Eq. A. 44) . 

A v/ork matrix (equals (kO of Eq. A.47d) . 

A work matrix of dimension 8x8 for the evaluation of the 
element effective stiffness matrix supplied by elastic re- 
straints (equals A ^ 

\ [N] [c][N] dn 

2 

of Eq. A. 48) . 

is the length coordinate along the centroidal axis from the 
mid point of element JELEM(I) at which the Ith concentrated 
load is to be specified. 

Total subtended angle of the circular ring (degrees) . 

A transformation matrix which relates the element generalized 

load vector and the Ith externally-applied concentrated load 

(equals [A ^]^[f) of Eq. A. 45a). 
c 
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FM2(M,W) 


FM3 (M,N) 


FM(M,N) 
FMC(M,N) ‘ 
FML(M,N) _ 
GFL(J) 


GZETA(J) 


H 

HHALF 

R 

REX (I) 


THETA 


A transformation matrix which relates the element generalized 

load vector and the uniformly distributed externally-applied 

-1 T 

load over the element (equals [A ] [f^] of Eq. A. 45c). 

A transformation matrix which relates the element generalized 

load vector and the linearly distributed externally-applied 

-1 T 

load over the element (equals [A ] of ^4* A.45e) . 

Matrices of dimension 8x2 defined by [f] of Eq. A.45h, 

c 

[fn = of Eq- A.45d, and of Eq. A.45g, re- 

spectively. 

Stress and/or plastic strain weighting factor of the Jth depth- 
wise Gaussian point at each spanwise Gaussian station 

(equals — ^ — ^XBXH) . 

Distance from the centroidal axis of the Jth depthwise 

Gaussian point at each spanwise Gaussian station 

, , TXG(J) .. 

(equals — ~ — XH) . 

Thickness of the ring 

Half the thickness of the ring. 

Mean radius of the circular ring. 

The length coordinate along the centroidal axis from the 
midpoint of the element NREL(I) at which the Ith point 
elastic restraint is to be specified. 

The angle between the +Z axis and the radial vector with 
origin at 0 to the first node of the discrete element 
representation of the structure. 


3.2.3 


AA(I ,M,N) 


AL(I) 

ANG(I) 


Variables Appearing Only in JET 3C and JET 3D 

Equals [A of Eq. A. 10a; it defines the transformation 
between the element generalized nodal displacement {q} and 
the parameters (3) in the assumed displacement field of the 
Ith element. 

Eleiaent arc length of the Ith element. 

The slope, wViich is the angle between the tangent vector and 
the +Y axis, at the Ith node. 
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APHA 


ASFL (I ,J ,K,L) 


AXG(I) I 
AWG(I) j 


BEP(IR,J,I,K) 


BZER 

B1 

B2 

D(I,J) 


E(I,J) 


ELR(I ,J) 


ETA (I) 


FM1(1,M,N) 


The angle, a, as defiiied by Eq. A. 6c. 

Stress and/or plastic strain wieghting factor on the Lth 
sublayer in the Kth depthwise Gaussian point at the Jth 
spanwise Gaussian station of the Ith element. 

Input vectors with dimension NOGA; contain Gaussian quadra- 
ture constants, x. , and wieghts, W, of 

^ y\/- 

0 

employed in the spanwise integration over each element. 
Transformation matrix which relates the strain at the Jth 
spanwise Gaussian station to the generalized nodal displace- 
ments of the IRth element ([D^], I = 1, 2, 3, see Eq. A. 14). 
Coefficients in the quadratic representation of the meridional 

slope 4>* Corresponds to b , b , and b . respectively in 

o 1 2 

Eq. A. 5. 

A work matrix of dimension 8x8 for the evaluation of the 
element mass matrix (equals 

[Nf ^ 

'0 


of Eq. A. 18a) 

A work matrix of dimension 8x8 for the evaluation of the 
element stiffness matrix (equals n 

of Eq. A. 26a) ® 

A work matrix of dimension 8x8 for the evaluation of the 
element effective stiffness matrix supplied by elastic 
restraints (equals „ 


f '[NJ [CUNJd^ 

* K 


of Eq. A. 29a) 

Equals the length coordinate along the centroidal axis from 
the node JELEM(I) at which the Ith concentrated load is to 
be specified on element JELEM(I) . 

A transformation matrix which relates the element generalized 

load vector and the Ith externally-applied concentrated load 
-1 T 

(equals [A ] [fM of Eq. A. 20b). 
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FM2 (I 


FM3A(I ,J,M,N) "I 
FM3B(I,J,M,N) J 


FM(M,N) 


Fi'lA(M,N) 
FI4B(M,N) j 
GFL(IR,I ,J) 


GZETA(IR,I,J) 

H(I) 

HHALF(I) 

PHI 

PHIP 

REX{I) 


RH 

YZET I 
ZZET J 


A transformation matrix which relates the element gen- 
eralized load vector and the Jth local uniform distributed 

externally-applied load over the element [NSTF2 (I) +J-1] 

-1 T 

(equals [A ] [f] of Eq. A.20e). 

u 

Transformation matrices which relate the element generalized 
load vector and the Ith local linear distributed externally- 
applied load over the element [NSTF3(D + J - 1] (equals 
[A respectively, of Eq. A.20g). 


Zl' 


A work matrix, of dimension 8x2, defined by [f] of Eq. A. 20c 

c 

or [f] of Eq. A.20f. 
u 

^^ork matrices, of dimension 8x2, defined by ^nd ' 

respectively, of Eq. A.20g. 

Stress and/or plastic strain weighting factor on the Jth 
depthwise Gaussian point at the Itli spanwise Gaussian station 
of the IRth element. 

Distance from the centroidal axis of the Jth depthwise Gaussian 
point at the Ith spanwise Gaussian station in the IRth elment. 
The thickness of the ring at the Ith node. 

Half the thickness of the ring at the midpoint of element I . 

(*) of Eq. A.l at a given spanwise quadrature station. 

(j)' of Eq. A.l at a given spanwise quadrature station. 

The length coordinate along the centroidal axis from the node 
NREL(I) at which the Ith point elastic restraint is to be 
specified. 

Thickness at a given spanwise quadrature station. 

The Y coordinate and Z coordinate, respectively, at a given 
spanwise quadrature station. 
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SECTION 4 


USE OF THE JET 3 PROGRAM 


4.1 Input Information and Procedure 

The information required to punch a set of data cards for a run of 
the program is presented in a step-by-step manner in this section. The vari- 
ables to be punched on the nth data card are outlined, and in a box to the 
right is the format to be used for that card; the definition of and some re- 
strictions for each variable are given directly below. This is done for each 
card, in turn, until all are described. The data cards necessary for analyz- 
ing (a) uniform thickness circular rings by using JET 3A or JET 3B; and (b) 
variable thickness arbitrarily curved rings by using JET 3C or JET 3D are 
described separately in the following. 

4.1.1 Input to JET 3A and/or JET 3B for Analyzing 
Uniform Thickness Circular Rings 

Cards 1 through 10 are used to describe the ring geometry, material 
properties, the finite-element model makeup, and the prescribed displacement 
conditions and/or elastic restraints. 


Card 1 


Format 


R, B, H, DENS, EXANG 


5E15.6 


where 

R The ring mean radius; distance from center to the 

centroidal axis (inches) . 

B The width of the ring (inches) . 

H The thickness of the ring (inches) . 

2 4 

DENS The mass density of the ring material , lb-sec /in . 

EXANG The total subtended angle of the circular ring 

(degrees). For a complete circular ring, 

EXANG = 360°. 
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Card 2 


IK, N0GA, NFL, NSFL, I'lM, Ml, M2 


715 


where 

IK The number of uniform size discrete elements used 

to model the whole structure. This number cannot 
exceed 50.^ 

N0GA The number of spanwise Gaussian stations to be used for 

the spanwise numerical integration over each element in 
evaluating the element properties {p} , [h] , and/or { f , 

q 

{ f , and { f^^} . N^A = 3 is used in JET 3 . 

P P 

NFL The number of depthwise Gaussian points to be used for 

the numerical integration through the thickness of 
stress resultants at each spanwise Gaussian station. 

NFL = 4 is used in JET 3. 

NSFL The number of mechanical sublayers in the strain- 

hardening material model. Equals the number of co- 
ordinate pairs defining the polygonal approximation of 
the stress-strain curve of the material. This number 
must not be more than 5. 

MM Corresponds to the computation cycle number at which 

the run is to stop. 

Ml The cycle number at which regular printout is to begin. 

M2 The number of cycles between regular printout (i.e., 

print every M2 cycles) . 


^This limitation and others which follow, apply to the program as listed in 
Section 5. These limitations may be circumvented by altering the dimensions 
of the variables in the program. 
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Card 3 


DELTAT, THETA, GRITS, DS , P 


5E15.6 


where 

DELTAT The time step size. At (seconds) to be employed for the 
timewise finite-difference operator. In the use of 
JET 3B wherein Houbolt's operator is employed, the value 
of At must be specified by the user. On the other hand, 
in the use of JET 3A wherein the central-difference opera- 
tor is employed, the program will compute the largest 
natural frequency, of a corresponding linear system, 

and will then choose a value of At = 0.8(2/(o ), if the 

max 

value of At is set equal to zero on this card. 

THETA The angle (degrees) between the +z axis and the radial 
vector with origin at 0 to the first node of the dis- 
crete element representation of the structure. 

GRITS Critical value of tensile strain at which the material will "fail" 

(or fracture will appear) . 

DS I The value of the constants D and p, respectively, used 

P J in the strain-rate sensitivity formula 



where D = (1/sec) , is the static yield stress of 
the £th mechanical sublayer, and is the corres- 
ponding rate-dependent yield stress. If the material 
does not exhibit strain- rate sensitivity, set DS = 0, 
and let P blank. 


Card 4 


EPS(l), SIG(l), EPS (2), SIG(2) 


4E15.6 


where 


EPS(l) ^ Make up the first coordinate pair of strain, e, and 
SIG(l) j stress, a, coordinates which are used to define the 


31 





piecewise linear approximation of the uniaxial static 
stress-strain curve. The stress-strain curve for which 
these values and those following are obtained must be 
upwardly-convex with nonnegative slopes (e(L) = in/in, 
a(L) = Ib/in^) . 

EPS (2) Make up the second coordinate pair of strain and stress 
SIG(2) coordinates. 

Additional Cards 4a and 4b are punched in exactly the same 
manner as Card 4 until the number of coordinate pairs equals the value NSFL 
punched on Card 2. The total number of coordinate pairs must not exceed 5. 

Card 5 

AXG(l), AXG(2), AXG(3) 4F15.10 

where 

AXG(I) Vector, of dimension N0GA, contains Gaussian cjuadrature 

constants, x^ for the numerical integration of 

If N0GA = 3, for example, then the following data 
appear on this card: 

-0.7745966692 0.0 +0.7745966692 

Card 6 

AWG(l), AWG(2), AWG(3) 4F15.10 

where 

AWG(I) Vector, of dimension N^GA, contains Gaussian quadrature 
weights, W^, for the numerical integration of 

If N0GA = 3, the following data appear: 

0.5555555555 0.8888888888 0.5555555555 
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Card 7 


TXG(l), TXG(2) , TXG(3), TXG(4) 


4F15.10 


Card 8 


TWG(l), TWG(2), TWG(3), TWG (4) 


where 


4F15.10 


TXG(I)1 Vectors, of dimension NFL, contain Gaussian quadrature 
TWG(I)J constants, x^, and weights, W^, respectively, for the 
numerical integration of 

If NFL =4, for example, then the following data appear 
on Card 7 : 

-0.8611363115 -0.3399810435 0.3399810435 0.8611363115 

and the data 

0.3478548451 0.6521451548 0.6521451548 0.3478548451 

appear on Card 8. 


Card 9 


NBC0ND, NBC(l), N0DEB(1), NBC(2) N0DEB(2) ... NBC(4), N0DEB(4) 


915 


where 

NBC0ND The number of prescribed displacement conditions to be 
specified on the structure. This number must not ex- 
ceed 4. 

NBC(l) 1 The identification number and the node number, respectively, 

N0DEB(1)J for which the first prescribed displacement condition is to 
be imposed. 
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NBC (2) The second data group of the identification number and 

NC5deb{ 2) node number, respectively, for which the second pre- 
scribed displacement condition is to be imposed. 

The appropriate form of the data group NBC (I) and N0DEB(I) should be 
repeated NBC0ND times. If NBC0ND=O, that means there is no prescribed dis- 
placement condition to be imposed on the structure; then, let NBC (I) and 
N0DEB(I) blank. 

The prescribed displacement condition identification number can be 
equal to 1 , 2 , or 3 , depending upon the type of the prescribed displacement 
condition. Its description follows: 

NBC{I)=1 Symmetry displacement condition. Setting the degrees 
of freedom v and ip at the node NODEB(I) to zero. 

NBC(I)=2 Ideally-clamped condition. Setting v, w, and i|) at 
node NODEB(I) to zero. 

NBC (I) =3 Smoothly-hinged condition. Setting v and w at node 

NODEB(I) to zero. 

Card 10 



where 

NQR Indicator, which if > 0 indicates that the structure 

is subjected to elastic restraints (point and/or 
distributed) . 

N0RP The number of point elastic restraints (elastic restoring 

springs) which are to be prescribed over the structure - 
This number must not exceed 4. 

N0RU The number of local distributed elastic restraints 

(elastic foundations) which are to be prescribed over 
the structure. This number must not exceed 4. 

If there is no prescribed elastic restraints on the structure, set 
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NQR=0 and let N(3RP and N0RU blank. 


If Card 10a and Card 10b are included only if NQR >0 in Card 10. 
If N0RP=O, skip to Card 10b. 

Card 10a 


SCTP , SCRP 


2E15.6 


Card lOaa 


NREL(l), REX(l), NREL(2) , REX(2), ... NREL(4), REX(4) 


4(15, E15. 6) 


where 

SCTP 

SCRP 

NREL(l) 

REX(l) 


NREL(2) 

REX(2) 


The translational restoring spring elastic constant 
(Ib/in) . 

The torsional restoring spring elastic constant 
(in-lb/radian) . 

The element number and the length coordinate along 
the centroidal axis from the midspan point of this 
element, respectively, at which the first point 
elastic restraint is to be specified. 

The element number and the length coordinate for 
the second point elastic restraint. 


The data group NREL(I) , REX(I) should be repeated N(5RP times. 


If N0RU=O in Card 10, omit Card 10b, and Card 11 follows directly. 


Card 10b 


SCTU, SCRU, NRST(l), NREU(l), ... , NRST(4), NREU{4) 


2E15.6,8I5 


where 

2 

SCTU Elastic foundation modulus in translation (Ib/in ) . 

SCRU Elastic foundation modulus in torsion (in- lb) / (rad-in) . 
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NRST(l) The first element and the number of elements, respec- 

NREU(l) tively, over which the first elastic foundation is 

to be specified (the first elastic foundation is dis- 
tributed to element NRST(l) , through and including 
element (NRST (1) +NREU (1) -1) . 


NRST(2) 

NREU(2) 


The first element and the number of elements over 
which the second elastic foundation is to be 
specified. 


Data group NRST (I) and NREU(I) are repeated NORU times. 


Cards 11 through 14 are used to describe the initial velocity distribu- 
tions . 


Card 11 


NV, I^A, I0TB, KSTC 


415 


where 

NV Indicator, which if >0 indicates that the initial 

velocities are to be prescribed over the structure. 

IOTA Number of local uniform initial normal velocity 

distributions . 

I0TB Number of nodes at which the initial generalized 

nodal velocity components are to be specified. 

I0TC Number of local sine-shaped initial normal 

velocity distributions. 

If there is no initial velocity distributions, set NV=0 and let I0TA, 
I0TB, I0TC blank, then skip to Card 15. 

If I0TA>O, the following No. 12 Card(s) must be included directly; 
otherwise, skip to Card 13. 
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Card 12a 


lEl, IE2 


Card 1 2aa 


215 


WRAD, WRADl, ANGVl , WRAD2 , ANGV2 


5E15.6 


where 

lEl 

IE2 


WRAD 


WRADl 

ANGVl 


WRAD2 

ANGV2 


The first element and the number of elements, re- 
spectively, over which the first local uniform 
initial normal velocity is to be prescribed. The 
number IE2 must be greater than one. 

The value of the initial normal velocity w (in/sec) 

o 

for the first local uniform initial velocity 
distribution. 

The initial radial velocity w^ (in/sec) and initial 
angular velocity i|;^{rad/sec) , respectively, which 
are to be prescribed on node lEl. 

The initial radial velocity and angular velocity 
which are to be specified on node IE1+IE2. 


Additional Cards 12b, 12bb and 12c, 12cc ... are punched in the same 
format, until the total number of cards equals I0TA given in Card 11. 


It perhaps should be mentioned that the values of WRADl, ANGVl and WRAD2, 
ANGV2 are included here in order to smooth the discontinuous function of the 
local uniform initial normal velocity distribution at two edge nodes by a 
continuous- function (because in the finite-element model the compatibility 
of V, w, ip, and x boundary nodes of each element with neighboring elements 
is required) . 

If I0TB>O in Card 11, the following No. 13 Card(s) must be included: 
otherwise, skip to Card 14. 
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Card 13 


N(iDEV, VRAD, WRAD, ANGV 


15, 3E15.6 


N0DEV 


VRAD 
WRAD ■ 
ANGV 


The node number at which the initial generalized 
nodal velocity components are to be prescribed. 

The initial tangential velocity v (in/sec) , normal 

o 

velocity (in/sec) and angular velocity, (rad/sec) , 
respectively, which are to be prescribed on node NODEV. 


Additional Card(s) 13a, 13b, ... are punched in the same format until 
the total number of cards specified equals I0TB in Card 11 . 


Card(s) 14, 14a, 14b ... are included only if I0TC>O in Card 11. 


Card 14 


ISl, IS2, WRAD 


2I5,E15.6 


where 

151 I The first element and the number of elements over 

152 J which the first local sine-shaped initial normal 

velocity distribution is to be prescribed. 

WRAD The peak value w^ (in/sec) of the first sine-shaped 

initial normal velocity distribution. 


Card(s) 14a, 14b .. . are punched in the same manner, until the total 
number of No. 14 cards equals I0TC on Card 11. 


The remaining cards (15 through 20) specify the amplitude, direction, 
and distribution of the subsequent time-dependent externally-applied forcing 
function. 
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Card 15 


TBEGIN, TFINAL, AMPIFV, AMPIFW 


4E15.6 


where 

TBEGIN 

TFINAL 


Times (seconds) which define the beginning and the end, 
respectively, of the complete externally-applied forcing 
function; i.e., the complete forcing function starts 
at TBEGIN and ends at TFINAL. 


AMPIFV 

AMPIFW 


The circumferential and the normal components , respec- 
tively, of the normal force (amplitudes of the forcing 
function) (lbs) versus time history at time TBEGIN. 


If there is no externally- applied forcing function during the run, set 
both TBEGIN and TFINAL equal to zero and let AMPIFV, AMPIFW blank; Card 15 
will be the last card if no forcing function is to be prescribed. 


Card 16 


N0FT1, N0FT2, N0FT3 


315 


where 

N0FT1 The number of concentrated loads which are to be pre- 

scribed (N0FT1^4) . 

N0FT2 The number of local uniform load distributions which 

are to be prescribed (N0FT2<4) . 

N0FT3 The number of local sine-shaped load distributions 

which are to be prescribed (N0FT3^4) . 

Omit data group 17 if N0FT1=O on Card 16. 


Card 17 


JELEM(l), ETA(l) , RT0V(1), RT0W(1) 


15, 3E. 15.6 


where 

JELEM(1)| The element number and the length coordinate along the 
ETA(l) j centroidal axis from the midspan point of element 
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JELEM(l) , respectively, at which the first concentrated 
load is to be prescribed. 

RT0V (1) 1 The normalized values of the first concentrated load 
RT0W(1) j with respect to the nominal forces in the circum- 
ferential and the normal directions, respectively, 

(Ib/lb) . 

Card(s) 17a, 17b, ... are repeated in the same format, until the total 
number of No. 17 cards equals N0FT1 given in Card 16. 

Skip data group Card(s) 18 to Card 19 if N0FT2=O on Card 16. 

Card 18 


NSTF2(1), NELF2(1), RT02V(1), RT02W(1) 


2I5,2E15.6 


where 

NSTF2(1)I The first element and the number of elements, respec- 
NELF2(1)J tively, over which the first local uniform load is 
to be distributed. 


RT02V(1) The normalized values of the first local uniform 
RT02W(1)J load distribution with respect to the nominal 

amplitudes in the circumferential and the normal 
directions, respectively, (Ib/lb-in) . 


Card(s) 18a, 18b, ... are repeated in the same format until the total 
nimiber of No. 18 cards equals N0FT2 on Card 16. 

Card(s) 19 are included only if N0FT3>O; otherwise, skip to Card 20. 

Card 19 


NSTF3(1), NELF(3), RT03V(1), RT03W(1) 


2I5,2E15.6 


where 

NSTF3(1) I The first element and the number of elements, respec- 
NELF3(1)J tively, over which the first local sine-shaped forcing 
function is to be distributed. 
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RT^)3V(X) I The normalized values of the first local sine-shaped 
rt03W(1) J forcing function with respect to the nominal ampli- 
tudes in the circumferential and the normal direc- 
tions, respectively (Ib/lb-in) . 

Card(s) 19a, 19b, ... are repeated until the total number of No. 19 cards 
equals N0FT3 on Card 16. 


Card 20 


T2, AMP2FV, AMP2FW 


3E15.6 


where 

T2 The time (seconds) of the second point to be specified 

on the normal force versus time curve. 

AMP2FV The nominal circumferential and normal force amplitudes 

AMP2FW of the second point to be specified (lbs) . 

y 

Cards 20a, 20b, ... have the same format as Card 20 and read successive 
values of T2, AMP2FV, and AMP2FW. T2, AMP2FV, AMP2FW on each card give the 
coordinates of each succeeding point on the force versus time curve. There is 
no limit to the number of No. 20 cards that can be used when specifying the 
total forcing function by coordinates of the force versus time curve. However, 
it is important that the final No. 20 card specify the nominal force at a time 
which must be equal to or greater than TFINAL specified on Card 15; otherwise, 
computation will stop. 


4.1.2 Input to JET 3C and/or JET 3D for Analyzing Variable 
Thiclcness Arbitrarily Curved Rings 

The input information required for JET 3C and/or JET 3D to handle variable 
thickness arbitrarily curved rings is very similar to that just described for 
JET 3A and/or JET 3B, except for some slight modifications. The data cards are 
listed in the following. To avoid needless repetition, only variables which 
newly appear and/or have different definitions are described. 
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Card 1 


Format 


B, DENS 


2E15.6 


Card 2 


IK, N0GA, NFL, NSFL, MM, Ml, M2 


where 

IK The number of finite-elements into which the ring 

has been discretized for analysis. 


715 


Card 2a 


Y(l), Z(l), ANG(l), H(l) 


4E15.6 


where 

Y(l) 1 Initial Y coordinate and Z coordinate, respectively, 

Z(l) J of the first node (inches) 

ANG(l) The slope (degrees) which is the angle between the 

tangent vector and the +Y axis at the first node. 


H(l) The thickness at the first node (inches) . 


Additional Cards 2aa, 2ab, ... are punched in exactly the same format 
as Card 2a until the total number of No. 2a cards equals IK+1 for a partial 
ring and equals IK for a complete ring, where IK is the value appearing on 
Card 2. Also, the following conditions must be satisfied by ANG(I) : 

(a) -180'’<ANG(I)<180® , and (b) [ ANG (I+l) -ANG (I) |j<15“ . 


Card 3 


DELTAT, CRITS, DS , P 


4E15.6 


where 

DELTAT The time step size At (seconds) to be employed for the 

timewise finite-difference operator. In the use of 
JET 3D wherein the Houbolt operator is employed. 
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Card 4 


the value of At must be specified by the user. On 
the other hand, in the use of JET 3C, wherein the 
central-difference operator is employed, the pro- 
gram will compute the largest natural frequency, co 

max 

of a corresponding linear system, and will then choose a 

value of At = 0.8 x (2/u) ) , if the value of At is set 

max 

equal to zero on Card 3. 


EPS(l), SIG(l) , EPS (2), SIG(2) 


4E15.6 


Additional Cards 4a and 4b are repeated in the same format until the 
number of coordinate pairs equals the value of NSFL on Card 2. 


Card 5 


AXG(l), AXG{2), AXG(3) 


4F15.10 


Card 6 


AWG(l), AWG(2), AWG(3) 


4F15.10 


where 

AXG(I) 1 Vectors, of dimension N0GA, contain Gaussian quadra- 

AWG(I) J ture constants, x^ and weights, W^, respectively, for 

the numerical evaluation of 

= X /rTT,-; vV, 

If N0GA=3, the following data appear on Card 5: 

0.1127016654 0.5 0.8872983346 

and the data 

0.2777777778 0.4444444444 0.2777777778 

on Card 6 . 
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Card 7 


TXG(l), TXG(2), TXG(3), TXG(4) 


Card 8 


TWG(l), TWG(2), TWG(3), TWG(4) 


Card 9 


NBC0ND, NBC(l), N0DEB(1), ... NBC (4), N0DEB(4) 


4F15.10 


4F15.10 


915 


The appropriate form of the data group NBC (I) , N0DEB(I) should be re- 
peated NBC0ND times. If NBC0ND=O, let NBC(I) and N0DEB(I) blank. 


Card 10 

NQR, N0RP, N0RU 

If NQR=0, leave N0RP and N0RU blank. 

Ccurd 10a and Card 10b are included only if NQR>0 in Card 10. 
If N0RP=O, skip to Card 10b. 


315 


Card 10a 


SCTP , SCRP 


Card lOaa 


2E15.6 


NREL(l) , REX(l), NREL(2) , REX(2) ... NREL(4), REX{4) 


4(15, E15. 6) 


where 

REX (I) The length coordinate along the centroidal axis from 

the node NREL(I) at which the Ith point elastic 
restraint is to be prescribed on element NREL(l) . 

Data group NREL(I) , REX(I) should be repeated N0RP times. 

If N0RU=O in Card 10, omit Card 10b; Card 11 follows directly. 
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Card lOb 


SCTU, SCRU, NRST(l), NREU(l) ... NRST(4), NREU(4) 


Data group NRST(I) and NREU(I) are repeated N0RU times. 


2E15.6,8I5 


Card 11 


NV, I0TA, I0TB, I0TC 


415 


If there is no initial velocity distribution, set NV=0 and let I0TA, 
I0TB, and I0TC blank; then skip to Card 15. 

Cards 12 are included, only if I0TA>O in Card 11. 


Card I2a 


lEl, IE2 


Card 12aa 


215 


WRAD, WRADl, ANGVl , WRAD2, ANGV2 


5E15.6 


Additional Cards 12b, 12bb and 12c, 12cc ... are repeated until the 
total number of No. 12 cards equals I0TA. 

Card(s) 13 are included only if I0TB>O in Card 11. 

Card 13 


N0DEV, VRAD, WRAD, ANGV 

Additional Card(s) 13a, 13b ... repeated lOTB times. 

Card(s) 14, 14a, are included only if I0TC>O is given in Card 11. 


Card 14 


ISl, IS2, WRAD 


2I5,E15.6 


Card(s) 14a, 14b are punched in the same manner, until the total number 
of No. 14 cards equals I0TC. 
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Card 15 


TBEGIN, TFINAL, AMPlFV, AMPIFW 


4E15.6 


If there is no externally-applied forcing function during the run, set 
both TBEGIN and TFINAL equal to zero and let AMPlFV, AI4P1FW blank; Card 15 
will be the last card if no forcing function is to be prescribed. 


Card 16 


N0FT1 , N0FT2 , N0FT3 


where 

N0FTK4, N0FT2<2, and N0FT3<2 


315 


Omit data group 17 if N0FT1=O on Card 16. 
Card 17 


JELEM(l), ETA(l) , RT0V(1), RT0W{1) 


15,3E15.6 


where 

ETA(l) The length coordinate along the centroidal axis 

from the node JELEM{1) at which the first concen- 
trated load is to be prescribed on element JELEM(l) . 

Card(s) 17, 17a, ... are repeated N0FT1 times 

Skip data group Card(s) 18 if N0FT2=O on Card 16. 


Card 18 


NSTF2(1), NELF2(1), RT02V(1), RT02W(1) 

where 

NELF2(1)<4. 


2I5,2E15.6 


Card(s) 19 are included only if N0FT3>O; otherwise, skip to Card 20. 
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Card 19 


NSTF3(1), NELF3(1), RT03V(1), RT03W(1) 


2I5,2E15.6 


where 

NELF3(I);<4. 

Card(s) 19, 19a ... are repeated N0FT3 times. 


Card 20 

T2, AMP2FV, AMP2FW 

Cards 20a, 20b, ... have the same 
values of tlie coordinate points on the 

On the final No. 20 card, T2 must 
specified on Card 15. 


3E15.6 

format as Card 20 and read successive 
force versus time curve. 

be equal to or greater than TFINAL 


4.1.3 Input for Special Cases of the General 
Stress-Strain Relations 

In the following, the specific input data for three special cases of 
the general elastic , strain-hardening constitutive relation handled by the 
computer program are given. Only the relevant data are noted: 

1 . Purely Elastic Case 

Set NSFL=1 on Card 2, and meike EPS(l) and SIG(l) on Card 
4 sufficiently high so that no plastic deformation occurs; 
for example, EPS(1)=1.0, SIG (1)=ES (1) , where ES(1) equals 
the elastic (Young's) modulus. 

2. Elastic, Perfectly-Plastic Case 

Set NSFIi=l on Card 2 and make EPS (1) =SIG (1)/ES (1) on 
Card 4. 

3. Elastic, Linear Strain-Hardening Case 

Set NSFL=2 on Card 3 and set EPS (1) =SIG (1)/ES (1) . Also 
EPS (2) and SIG (2) on Card 4 are taken sufficiently high in 
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order to avoid plastic deformation in the second sub- 
flange. For example, EPS(2)=1.0, and SIG(2) = (1. - EPS (1) ) x 
ES(2) + SIG(l), where ES(2) is the slope of the segment 
in the plastic range. 

4 . 2 Description of the Output 

The printed output begins with a partial reiteration of the program 
input which identifies the problem solved. The information presented varies 
with the type of problem analyzed. Example outputs are presented in Section 6. 

After the initial printout has been completed, the following informa- 
tion is printed out (this is done before the first cycle (J=0) , after cycle 
Ml has been completed, and at every M2 cycle thereafter: 

J=[IT] TIME (SEC. )= [TIME] 

T0TAL ENERGY INPUT (IN . -LB. ) = [CINETT] 

KINETIC ENERGY (IN. -LB. )=[CINET] 

ELASTIC ENERGY (IN. -LB. )= [BLAST] 

PLASTIC W0RK(IN.-LB.)=[PLAST] 

ENERGY ST0RED IN THE ELASTIC RESTRAINTS (IN. -LB. )= [SPDEN] 

1 V W PSI CHI C0PY C0PZ L M STRAIN (IN) STRAIN (0UT) 

1 

2 
3 


where IT 

TII'lE 


= Cycle number 

= Elapsed time corresponding to the end of cycle J(sec.) 
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Cl NETT 


CINET 


BLAST 

PLAST 


SPDEN 


I 


V 

W 


= Total work imparted to the structural ring up to the 
present time step by the external agencies such as 
the externally-applied forces and the initially- 
imparted kinetic energy (in-lb) . 

= The current value of kinetic energy present in the 
structural ring* (includes both the rigid body and 
the relative kinetic energies) (in-lb) . 

= Total elastic strain energy stored in the entire struc- 
tural ring at the present time instant (in-lb) . 

= Total plastic work** done on the structural ring 
(mechanical work dissipated during plastic flow) 

(in- lb) . 

= Total energy stored in the elastically-restoring 

springs and/or the elastic foundations at the current 
time instant (in-lb) . 

= Node number in clockwise order. For a partial ring, the 
value of the total number of nodes equals the value of 
the total number of elements plus one. For a complete 
ring, the value of the total number of nodes equals the 
value of the total number of elements . 

= The middle plane axial displacement at node I (in) . 

= The middle plane transverse displacement at node I (in) . 


it 

It should be noted that the rigid body part of the kinetic energy, which is 
used to accelerate the "rigid body" mass of the structure, can be extracted 
and identified separately. However, for the present program dealing with 
rather general structural geometries and with various support/restraint con- 
ditions, it would be very unwieldy (but not impossible) to identify these 
separate kinetic energies; hence, the total kinetic energy is calculated and 
printed out. 

* * 

The plastic work done on the ring is estimated by subtracting the sum of the 
elastic and kinetic energies present in the ring from the total input energy 
(due to the externally-applied load and the initially-imparted kinetic energy) 
i.e., CINETT=CINET+ELAST+PLAST+SPDEN. It should be mentioned that the approxi 
mate nature of this numerical calculation will sometimes yield impossible re- 
sults such as negative values of plastic work or values greater than zero 
when the ring has not yet reached a plastic condition; thus, the value of 
plastic work should be considered only approximate, and spurious results as 
noted above should be ignored. 
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PSI 

CHI 

C0PY 

cgjpz 

L 

M 

STRAIN (IN) 
STRAIN (0UT) 


= The generalized nodal displacement ip = (3w/9r|) - v/R 
at node I (rad) . 

= The generalized nodal displacement X = (3v/3r|) + w/R 
at node I (rad) . 

= The Y-location of node I in the global (inertial) 
coordinate system (in) . 

= The Z-location of node I in the global coordinate 
system (in) . 

= Axial internal force resultant over the cross section 
at the midspan point of element I (lb) . 

= Internal bending moment of the cross section at the 
midspan point of element I (in- lb) . 

= Strain on the inner surface at the midspan point 
of element I . 

= Strain on the outer surface at the midspan point 
of element I . 


At each printout cycle, a strain checJcing process is carried out. Aster- 
isks are printed to the right of the strain printout only for the cycle when the 
strain first exceeds the critical value. No further strain checking or action 
is tciken by the program, however, and the computation process proceeds until the 
end of the run as if the material had not "failed". 


At the conclusion of each run, a statement "LARGEST COMPUTED STRAIN= . . . 
0CCURS AT THE INNER (or 0UTER) SURFACE MIDSPAN ®F ELEMENT= ... AT TIME (SEC) =... " 
is printed out. This statement gives the largest computed strain, and the time 
and the location at which it occurs during the transient response. It should 
be mentioned that the strains are computed at every printout cycle only and also 
only on the inner and the outer surface midspan of each element. 
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SECTION 5 


COMPLETE FORTRAN IV LISTING OF THE JET 3 PROGRAM 

5.1 JET 3A: Uniform Thickness Circular Ring; Timewise 
Central-Difference Operator 

The JET 3A program consists of the following main programs and sub- 
routines . 

1. JET 3A MAIN PROGRAM 

2. ASSEM 

3 . ASSEF 

4. I DENT 

5. IMPULS 

6. PRINT 

7. JET 3A MAIN PROGRAM 

8. ASSEM 

9. ASSEF 

10. ' IDENT 

11. IMPULS 

12. PRINT 

13. ELMPP i9» MINV 

14. ERC 20. OMULT 

15. FAC 21. QREM 

16. FICOL 22. SOLV 

17. LOADEQ 23. STRESS 

13. LOADFT 24. TSTEP 

Note that there are two groups of "control programs" in JET 3A: one for partial 

rings and a second for complete rings; the subroutines in items 13 through 24 are 
common to each of these two groups. 

A complete FORTRAN IV listing of JET 3A is given below in the above order. 
The number of memory locations required on the IBM 370-155 computer at MIT is 
approximately 186,000 bytes. This includes the locations required for the MIT 
computer library subroutines. 
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non 


JCT3A MAIN PKGGRAM FOR UNIFORM THICKNESS CIRCULAR RING 
JET3A CENTRAL UIFFERENCE OPERATOR 
PARTIAL RING ***** 

DIMENSION A (8, 3) ,AMASS( 206 U ) , 6MAS S ( 2C60 I , Y ( 5 L ) , Z( 5 1 ) , T X G ( 6 i , T «G ( 6 ) 
i'fESIblfGFLIG), EPS! 6), SIG(5 ) ,SUL{206) ,INUM( 205) , KRUWie) , NDEXi 0) 
COMMON /TAPE/ MRE AD , MW R IT E ,M PUNCH 

COMMON /FG/ I K,NOGA,NFL»NSFL,NI , I COL (2 05) , NrtCOND.NBC (A ) ,NUDEB(4) 
COMMON /HM/ R, B,H, DENS. YOUNG, DS , C5 , Ct, ASFL ( 6,5 ) ,GZETA { 6 ) ,SNO( 5) 
COMMON /VQ/ FLVA(205) ,DISP(205),DELC(205) ,SNS(5Q,3,6,5), 
*BlNP{50f3) f eiMP(50, 3) 

COMMON /BA/ BEP{ 3 ,3,3 ) ,AXG (3 ) ,AWG( 3 ) 

COMMON /SC/ MCRIT, GRITS, BIG, IHIG,BT1ME,ISURF 

COMMON /FORCE/ FM ECU (20 5) , T I , AMP 1 FV ,AM P IF W , T 2 , AMP 2FV , A MP2F W , 
*AMPFV,AMPF W ,NOFTl , NGFT2 , NQF T3 , JE L£ M ( A ) , ETA ( A ) , RTOV { A ) , RTGW (A), 

♦ NSTF2 ( A ) ,NELF2 ( A ), RTQ2V{ A) ,RT0 2W( A) ,NSTF3( 4) ,NE LF3( A) ,RT03V (A) , 
^RT03W(A) ,FMi(A,8,2),FM2(8,2 ),FM3 (3, 2 ),SL0PEV, SLOPEW 

COMMON /ELFU/ SPR I N ( 20 60) , FQREF ( 20 5 1 , NORP , NORU ,NREL ( A ), REX (A } , 
*NRST(A) ,NREUIA) 

REALMS A,BEP, AMASS,AL, FLVA ,SOL,FMECE,BX,BL ,0 ISP, DEED 

REAL =>3 SPR IN, FQREF,RMASS 

MREAD=5 

MWRI TE=6 

MPUNCH=7 

READIMREAD ,1 ) R , B ,H , DE NS , E XANG , I K , NCGA , NFL ,NSF L, , HI , M2 
READ(MREAD,2) DELTAT , THET A ,CRI TS ,DS ,P, (EPS(L),SIG{L) ,L=1,NSFL) 

1 FORMAT (5E15. 6/715) 

2 F0RMAT(5E15,6/(AE15.6) ) 

READIMREAD, 3) ( AXG { K ) , K= 1, NOGA ) 

READIMREAD, 3) I AWG I K) , K =1 , NCGA ) 

READIMREAD ,3) ITXGIK) ,K=l,NFL) 

READ (MREA0,3) I TW G I K ) , K= I, NFL ) 

3 F0RMATIAF15. 10) 

READIMREAD, A) N3C0ND, I NBC I I ) ,NQDEB ( 1) , I-l , NBCOND) 

A FORMAT (915) 

READIMREAD, 9) NQR , NURP , NO RU 
9 FORMAT (315) 

CALL IDENT I EXANG,NQR ) 

P 1E=3. lAl 5 926 5 
IKPi = IK + l 
NI=IKP1*A 

THETA^THE TA*P IE/ 180. 

BX=PIE«EXANG/ 180. 

BL=BX*R 

AL=BL/ IK 

AX=BX/IK 

DO 70 K=1,NFL 

GFLIK ) = H*8«TWGIK )/2. 

7C GZETAIK)=H<'TXG(K)/2. 

ESIl ) = SIG( D/EPSI 1) 

YC LNG = ES 1 1 ) 

IF (NSFL-l ) 77, 77, 76 

76 DO 78 L=2,NSFL 

73 ESIL) = (SIGIL)-SIG(L-1) )/IEPSIL)-EP5 IL-D) 

77 ESINSFL+l )=0. 0 
DO 79 L=1 ,NSFL 

79 SNGI L)=ESI1)*EPS(L) 

DO 71 K=l,NFL 

DO 71 L=1 ,NSFL 

71 ASFLIK,L)=GFLIK)*(ES(L)-ESIL+1) )/ES(l) 

DO 72 K=1,N0GA 
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AXG( K)=AXG (K) *AL/2. 

72 AWG(K )=AWG(K) ^'AL/Z. 

DO 15 1=1,8 

15 ICOL(I)=l 

DO 16 1=3 , IKPl 

IK3=IK4-1 
I K2=IK4-2 
I K. 1^- 1 K 4- 3 
JJ={ I-l )*4-3 
ICOL ( IKl) =JJ 
ICOL ( IK2)=JJ 
ICOL ( IK3)=JJ 
IC0L(IK4J =JJ 

16 CONTINUE 
INUM(1)=1 

DO 99 1=2, NI 

99 INUM( I )=I-ICOL ( I-n + INUM( I-l) 

DO 990 1 = 1 ,NI 

990 INUM( I )=INUM( n-ICOL( I ) 

NIRREG=0 

INDEX=0 

ISET=1 

DO 116 1 = 1, NI 
L=ICOL( I ) 

IF(ICOLtl)-ISET) 117, 116,1 19 
119 ISET=ICOL{I) 

GO TO 116 

117 NIRREG=NIRREG+ 1 

IF (NIRREG-M/2)711 ,711 ,90 
711 KROW(NIRREG)= I 

NDEX(NIRREG)=INDEX 
116 INOEX=INOEX+I-L 
90 CALL FICOLINI ,NI,L,ICUL) 

I S IZE = L 

WRITE ( MWRI TE , 1 7) L 

17 FORMAT!/, • SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX=*,I5) 

CALL ELMPP! AL, A, AMASS, BMASS , KFOW , NDEX , N I RREG , INUM, 
♦ISIZ£,D£LTATJ 

IF (NQR .EG. 0) GO TO 20 
DO 23 L=1 ,ISI ZE 

23 SPRIN(L)=0.0 
CALL QREM(A,AL,R) 

DO 24 1 = 1, NI 

24 FQREF(I}=0.0 

20 IF(OS.EQ.O.O) GO TO 21 

C5=l. /P 

C6 = l ./ DS/DELTAT 

21 DTSQ=DELTAT**2/(DENS=>B*H) 

C2=DENS*B*H/{ 2 .*DE LT AT **2 ) 

HHALF=H/2. 

MCRI T=0 
BIG=10.**I-10 ) 

I BIG=0 
IT = 0 

T IME=0.0 
DO 75 1=1 , IKP I 
ANG=( I-1)*AX+THETA 
Y( I)=SIN( ANG) «R 
75 Z ( I) =COS( ANGJ *R 
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CALL IMPULS (DELT AT, ALl 
RE AD (MKEAO ,5) T8 EC IN , T F I iM A L, AMPl E V , AMP 1 FW 
5 FORMAT (4E 1 P.6 ) 

IFITFINAL .EQ. 0.0) nR I TF ( MWR I T E , 4 8 ) 

48 FORMATCO THERE IS NO TIME DEPENDENT FORCE DISTRIBUTION DURING 

* THIS RUN • J 

IFITFINAL .EQ. 0.0) GO TO 49 

CALL LUADEQ(A,R, AL,TBEGIN,TF INAL) 

49 APDEN=0.0 

CALL PR I NT ( I T, TI ME,HHALF,AX , Y , Z , THET A , A PUEN , FQRE E, DM ASS, C2, 
*NQK,KRGW,NDEX, N IRREG, CINETO ) 

NREADF=0 

T1=TBEGIN 

NLGAD=2 

IF ITBEGIN. GT.0.0 .OR. TF I N AL . EQ. 0 . 0 ) GO TO 120 
NL0AD=1 

CALL LOADFT (TIME,NREADF) 

CALL SOLVI AMASS, FMECH, SOL, ICOL , KROW ,ND£X , N I , N I RREG ) 

DO 26 1=1, N I 

2 6 DELDI I )=0£L0{ I ) +0T SQ*S CL ( I )/2. 

IFINLOAO .EQ. 2) GO TO 120 

APC=0.0 

DO 46 1=1 , NI 

46 APD=APO+FMECH( I j*OELD( I ) 

APCEN = APDEN>APC 

120 IT=IT+1 

T IM£= IT^DELTAT 
DO 121 I = l ,NI 
FQREFI I ) = 0.0 
FLVAI I )=0 .0 

121 OISPI I )=DISP( I )+OELD(I ) 

45 CALL STRESS 

IF (NQR .EQ. 0 ) GO TO 127 

CALL GMULT (SPRIN,DISP, ICOL,NI ,FQREF ,KROW,NDEX, NIRREG) 

DO 128 1=1, NI 

123 FLVAI I )=FLVA{ I ) + FQREF( I ) 

127 NL0A0=2 

I F IT IME.LT .T8EGIN .OR. T I ME.GT . T F I N AL ) GO TO 122 
NL0AD=1 

CALL L0ADFT(TIME,NREA0FJ 
DO 123 1 = 1, NI 

123 FLVAI I )=FLVA{ I )-FMECH( I ) 

122 IFINBCOND .EQ . 0) GO TO 124 
DO 125 1 = 1 ,NBCOND 
JT4=NQ0E8I I)*4 
FLVAIJT4-3 )=0.0 

IFlNBCm.EQ. I .OR. NBCII).EQ.2) FLVAI JT4-1 )=0 .0 
IF INBC I I ) . EQ. 2 .OR. NBCII).EQ.3) F L VA I JT4- 2 ) =0 . 0 

125 CONTINUE 

124 CALL SOLVI AMASS, FLVA, SOL, ICOL, KROW ,NDEX,NI , NIRREG) 

DO 126 1=1, NI 

126 DELDI I )=DELDI I )-SOLI I) *OTSQ 
IFINLOAO .EQ. 2) GO TO 41 
APD=0.0 

DO 42 1=1 ,NI 

42 APD=APD+FMECHI I ) *DELDI I ) 

APDEN=APDEN*-APD 

41 IFIIT .EQ. 1) CALL PRI N T{ I T, T I ME , HH ALF , AX , Y , Z, THE T A, AP OEN , FQREF , 

♦ BMASS, C2, NQR, KROW, NDEX, NIRREG, CINE TO) 

IFIIT-Ml) 130,140,150 
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140 Ml=Ml+M2 

CALL PR INK I T,TI ME , HHAL F , AX , Y t Z, T MET A, APDEN, FQR E F , BM A S S, C 2 , 
*NQR,KROW,NOEX , NIRREG,CI NETO ) 

130 IF(IT-MM) 120,170, 130 

170 IF(IBIG) 62,150,62 

62 IF(ISURF-2) 64,65,65 

64 WRITE(MWRITE,66) B IG , I B IG , BT I ME 

66 FORMAK///,' LARGEST COMPUTED STRAIN =',E13.6,* OCCURS AT THE 
♦INNER SURFACE MIDSPAN OF ELEMENT =',I3,‘ AT TIME (SEC.) =',E15.6) 

GO TO 150 

65 WRITEIMWR ITE, 67) B I G , I B IG , BT I ME 

67 FORMAT!///, • LARGEST COMPUTED STRAIN =‘,E15.6,' OCCURS AT THE 
♦OUTER SURFACE MIDSPAN OF ELEMENT ^',I3,' AT TIME (SEC.) =',E15.6) 

150 CALL EXIT 

END 


SUBROUTINE AS S EM ( I R, IK , EL M AS , ST I FM , ICOL,NI ) 
C PARTIAL RING ♦♦♦♦♦ 

D I MENS ION ELM AS( 8, 8) ,NN( 8 ) , ST I FM ( 1 ) ,I COL ( 1 ) 

REALMS ELMAS,STIFM 

J 1=1 R *4 

NN(l)=Jl-3 

NN(2) =Jl-2 

NN(3)=J1-1 

NN(4)=J1 

J2 = ( IR + 1) ♦A 

NN(5)=J2-3 

NN(6) =J2-2 

NN(7)=J2-1 

NN(8 )=J2 

202 DO 402 1=1,8 
M = NN ( I ) . 

DO 402 J=1 ,8 
N=NN( J ) 

1F(M-N)402 ,40 3,403 
4C3 CALL F ICOL (M,N,L, ICOL) 

STIFM(L) = STIFM(L)+ELMAS(I ,J) 

402 CONTINUE 
RETURN 
END 


SUBROUTINE AS5EF(IR,IK,ELFP,F LVA ) 
C PARTIAL RING ♦♦♦♦♦ 

DIMENSION NN( 0) ,FLVA( 1 ) ,ELFP( 1 ) 
REALMS ELFP,FLVA 
J1=IR^4 
NN( 1) = J 1-3 
NN(2)=Jl-2 
NN (3) = J1-1 
NN(4)=J1 

121 J2 = (IR + U*4 
NN(5) =J2-3 
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NN(6)=J2-2 
NN( 7) =J2-1 
NN (8 )'= J2 

123 DG 101 1=1,0 
M = NN ( I ) 

FLVA(M 1 = FLVA( M ) + ELFP ( I ) 
ICl CONTINUE 
RETURN 
END 


SUBROUT INE IDENT( EXANG.NQR ) 

C PARTIAL RING -1' - 

COMMON /FG/ IK,NQGA,NFL,NSFL,NI ,ICGL(205) ,NaC0N0,NEC(4),N0DEB(4 I 
COMMON /HM/ R, B ,H , DENS , YOUNG, US , C 5 , C 6, A SFL ( 6 , 5 ) , GZE TA ( 6 ) , SNO { 5 ) 
COMMON /TAPE/ MRE AO, MW R I T E ,MPUNCH 

WR ITE ( MWR I TE , 1) R , 8, H , UEN S ,E XANG , I K ,NUGA , NF L , N SFL 
1 FORMAT!' ET3A*4=4:« a SPATIAL FINITE ELEMENT AND TEMPORAL CENTR 

*AL DIFFERENCE PROGRAM',/,' USED TC CALCULATE THE NONLINEAR RESP 
♦ GNSES OF A UNIFORM THICKNESS CIRCULAR',/,' PARTIAL RING WITH TH 
*E FOLLOWING PARAMETERS ',//, 


* » 

MEAN RADIUS UF RING ! I N. ) 


=',E15.6,/ 

if ' 

WIDTH OF 

RING UN.) 


= ',E15.6, / 

♦ ' 

THICKNESS 

OF RING !IN.) 


= • ,E13.6,/ 

♦ • 

DENSITY !L6-SEC»=<'2/IN*^4) 


=',E15.6,/ 

« • 

SUBTENDED 

ANGLE (DEGREE) 


=',E15.6, / 

* » 

NUMBER OF 

ELEMENTS 


= ',I5 ,/, 


NUMBER OF 

SPANWISE GAUSSIAN 

PTS 

= SI5,/, 

♦ • 

NUMBER OF 

DEPTHWISE GAUSSIAN 

PTS 

= ’ ,15,/, 

♦ • 

NUMBER OF 

MECHANICAL SUBLAYERS 

= ',I5) 


IF!NBCCND .EQ 

. 0) GO TO 12 




DO 14 1 = 1, NBC UNO 

IF(NBCII) .EQ. 1) WRITECMWRITE, IP) NODEBI I ) 

1F(N8C(I) .EG. 2) WRITE(MWRITE,16) ^□DEBm 
IF(NBC(I) .EQ. 3) WRITE (MWRl TE, 17) NOUEBII) 

14 CONTINUE 

15 FORMAT!' SYMMETRY DISPLACEMENT CCNDITION AT NODE =',I5) 

16 FORMAT!' CLAMPED DISPLACEMENT CCNDITION AT NODE =',I5) 

17 FORMAT!' HINGED DISPLACEMENT CCNDITION AT NODE =',I5) 

GO TO 18 

12 WRITE! MWR ITE, 13) 

13 FORMAT!/,' THERE IS NO PRESCRIBED CISPLACEMENT CONDITION') 

18 IF!N0R .EQ. 0) GO TO 19 
WRITE (MWRI TE, 20) 

20 FORMAT!/,' CONSTRAINTS (ELASTIC FCUNDATI ON/S PRI NG) AS DESCRIBED 
♦ BY INPUT ' ) 

RETURN 

19 WR ITEIMWR I TE, 21) 

21 FORMAT!/,' THERE ARE NO ELASTIC SPRING CONST RA I NTS ' ) 

RETURN 

END 
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SUBRUUT INE I M P UL S ( D£ L T AT , A U 
C PART lAL RING 

COMMON /EG/ I K,NOGA, NFLtNSFL,NI ,ICGL(205) , iMBCU NO , N BC ( A ) , NO DE 61 4 ) 
COMMON /VQ/ FLVAI205) , DISP(205),0ELC( 205) , SN5{ 50,3,6,5) , 

*81 NP(50,3) , eiMP(50,3) 

COMMON /TAPE/ MR E AD, MWR I T E ,M PUNCH 
REAL*8 FLVA, DISP,DELD, AL 
DO 50 1=1 ,NI 
0ELD( I )=0.0 

50 DISP(I) = 0.0 
DO 51 IR=1,IK 
DO 51 J=1,N0GA 
BINP{ IR,J)=0.0 
BIMP( IR, J) =0. 0 
DO 51 K=1,NFL 
DO 51 L = 1 ,NSFL 

51 SNS(IR,J,K,L)=0.0 
REA0(MREAD,1) NV , I OT A , lOT B, I UTC 

1 F0RMAT14I5) 

WRITEIMWRITE, 2) DELTAT 

2 FGRMATI/,' TIME STEP SIZE USED IN PROGRAM ISEC) =*,E15.6) 

IFINV ,EQ. 0) WRITEIMWRITE ,4) 

IFINV .GT. 0) WRITEIMWRITE, 6) 

4 FORMATI/,' THERE IS NO INITIAL IMPULSE ') 

6 FORMATI/,' IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY 
* INPUT ') 

IFINV ,EQ. 0) RETURN 

I F IIOTA , EC.O ) GO TO 10 
DO 20 IM=1,I0TA 

REA0IMREAD,21 ) I E 1 , I E2 , WR A D, W RAD 1, ANGV 1, WR AD2, ANGV 2 

21 F0RMATI2I5/5E15.6) 

IE2M1=IE2-1 

DO 22 I 1 = 1 ,IE2M1 
I = IE1+II 

22 DEL0ri*4-2 )=OELTAT*WRAD 
OELOI I El*4-2 )= DEL TAT *W RADI 
DELOt IE1*4-1) =0ELTAT*ANGV1 
IE2P1= IE1 + IE2 

DELOI IE2Pl*4-2 )=DELTAT*WRA02 
DELOI IE2P 1*4- 1 )=DELTAT*ANGV2 
20 CONTINUE 

10 I-FIIOTB .EQ. 0) GO TO 42 

DO 30 IM=1, lOTB 

RE AD IMRE AD ,31 ) NODEV , V RAD , WRAO, ANGV 
31 F0RMATII5,3E15.6) 

DELOI NODEV *4-3 ) = DELTAT *VRAD 
DELD I NODE V*4-2 ) = OELTAT*WRAD 
DELOI NODEV *4-1 )=DELT AT*ANG V 
30 CONTINUE 

42 IF 11 OTC . EQ. 0) GO TO 60 

DO 61 IM=1,I0TC 
READ IMREAD,62 ) ISl,IS2,WRAC 
62 FORMAT I 21 5 ,E 1 5.6) 

PIEP = 3. 14159265/ IS2 

DELHI I SI* 4-1 ) =WRAD*DEL TAT* PIEP/ AL 

00 63 I 1=1, IS2 

1 = IS1 + I I 

DELD I I *4-2 )=WR AD* DELTA T*S INI P 1EP*I I ) 
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63 DEL1J( 1*4-1 ) = WRA1)*DELTAT*P I EP*C(JS (P IEP*II )/AL 
61 CONTINUE 

60 IFdNBCOND .EU.O) RETURN 

DO 40 1=1 t NBC UNO 
JT4=N00EB( I)*4 
DELO( JT4-3 ) = 0.G 

I F (NBC ( I ) . eg. 1 .UR. NBC ( I ) .EQ.3 ) 0 E LO ( JT4- 1 ) =0 .0 
I F (NBC ( n . EO. 2 .OR. NBCn).£Q.3J ;)ELD( JT4- 2) =0. 0 

40 CONTINUE 

RETURN 
END 


SUBKOUT INE PR INT ( I T, TI ME, HHALF ,AX ,Y ,Z,THET A,APUEN, FQKEF, AMASS, C2 , 
*NQR,KR(JW,ND£X ,NIRREG,CI NETOJ 

C partial ring **=4=^4= 

01 ME NS ION Y( 5 1 ) , Z ( SI ) , COP Y ( 5 1 ) ,COP Z ( SI ),8EPS(3),EPSI(S1),EPSU(51) 
* ,FQREF ( 1 ) , BMASS (1 ) ,KROW ( 1 J ,NDEX( 1 ), C INE ( 205 ) , FA IL I ( SO ) , FAIL 0 ( SO ) 
COMMUN /FG/ I K,NOGA, NFL,NSFL,N1 , 1 CEL (2 05) , NBCUNU, NEC (4 ), NODE 8(4 ) 
COMMON /HM/ R, B,H, OENS , YOUNG,DS ,C 5, C E ,A SFL ( 6,5) ,G ZE TA { 6 ) , SNO ( 5 ) 
COMMON /VQ/ FLVA(20S) ,DISP(20S),0ELC(205),SNS( 50,3,6,5), 

*BINP( 50,3) , 3IMP(50, 3) 

COMMON /BA/ 3EP(3,3,8) ,AXG(3),AWG(3) 

COMMON /SC/ MCRI T, GRITS, b IG, IBIG,BT IME, ISURF 
COMMON /TAPE/ MR EA 0, MWR IT E .MPUNCH 
DATA ASTER/'**/, BLANK/' '/ 

REAL*8 BEP,FLVA,DISP, DEED, BMASS, FQREF, CINE 
DU 700 1=1, NI 
7 00 C I N£ ( I ) =0 . 0 

CALL OMULT (OMASS,DELD, ICOL ,NI ,C I NE , KROW ,ND EX , N I RREG) 

CINET=0.0 
DG 701 1 = 1 ,NI 

7C1 C INET=CINET+OELO( I )*CINE( I ) 

CINET=CINET*C2 

IF(IT .Eg. 0) CINETO=CINET 

ELAST=0.0 

DO 702 IR=1, I K 

DG 703 J=1 ,NOGA 

SUM=0.0 

DO 704 K=1 ,NFL 
DO 704 L=1,NSFL 

704 SUiM=SUM+SNS(I R , J , K ,L ) * *2*A SFL (K , L ) 

7C3 ELAST=ELAST+SUM*AWG( J) 

702 CONT INUE 
SPDEN=0.0 

IFINQR .EQ. 0) GO TO 31 
DO 32 1=1, NI 

32 SPDEN=SPOEN+DI SP { I )*FQREF ( I) 

SPDEN=SPDEN/2 . 

31 ELASI=ELAST/Y0UNG/2. 

C INE TT=CI NETO + APUEN 

PLAST = CINETT-CINET-ELAST- SPDEN 

WRITEIMWRITE, 1 ) IT,T IM E, C I NETT , C IN E T , ELAS T , PL A ST 


1 


FORMAT ( ////// , • 

J=' , 

IS ,* 

TIML (SEC.) 



TOTAL ENERGY 

INPUT 

( IN .-LB. ) 

= * , E 15. 6 , / 


* • 

KI NET IC 

ENERGY 

(IN. -LB. ) 

= ',E15.6 ,/ 


♦ » 

ELAST IC 

ENERGY 

(I N.-LB. ) 

= ',E15.6 ,/ 
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PLASTIC WORK {IN.-LB.J =',E15.6) 

IFINQR ,EO. 0 ) GO TO 33 
WRITE(MWRITt,3A) SPDEN 

34 FORMAT! • ENERGY STORED IN THE ELASTIC RESTRAINTS (IN. -LB.) ='» 

♦E15.6 ) 

33 IKP1 = IK + 1 

DO 11 1=1, IKP 1 
ANG= ( I-l ) ^'AX + THET A 

COPY ( I ) = Y( IM-DISP(I*4-3)«C0S(ANG)+CISP(I<'4-2)*SIN(ANG) 

11 COPZ( I )=Z( I )-DISP( I*4-3)*SIN(ANG) + DISP( 1*4-2) *COS( ANG) 

DO 601 IR=1,I K 
DO 604 1=1,3 
BEPS (I ) = 0.0 
DO 604 K = 1 ,8 
INOEX= { IR- 1)*4+k 

604 BEPSd ) = BEPS ( I ) + BEP( 2, I,K )*DISP( INDEX) 

FARE=8EPS( 1) + B£PS{2) **2/2. 

FCUR=8EPS ( 3) 

EPSI (I R)=FARE-HHALF*FCUR 
EPSO ( IR) = FARE+HHALF*FCUR 
601 CONTINUE 

DO 60 IR=1 ,IK 

IFIEPSKIRJ .LE. DIG) GO TO 61 
BIG=EPS KIR) 

I8IG = IR 
ISURF= 1 
BTIME=T IME 

61 IFIEPSOdR) .LE. BIG) GO TO 60 

BIG=EPSO(IR) 

I BIG=I R 
I SURF=2 
BT IME=TIME 
60 CONTINUE 

WRITE(MWRITE,2) 

2 FORMAT!/, • I ' , 5X , • V • , 1 1 X, • W' , 9X , ‘P S I * , 9 X , ’ C HI • , 1 OX , 'CUP Y • , 

*3X, 'COPZ' ,9X,' L* , 11X,'M* ,7X,*STRAIN ! IN) • ,4X , 'ST RAIN (OUT ) ' ) 

IFIMCRIT .GT. 0) GO TO 50 
DO 51 1 = 1 , IK 
FAILI ( I )=BLANK 
FAILO! I )=OLANK 


IFIEPSId) .LT. 
FAIL I ! I ) = ASTER 

CRITS ) 

GO 

TO 

52 

IFIMCRIT .GT. 0) 
MCRIT=1 

GO TO 

52 



IF!EPSO!I) .LT. 
FAILO! I )=ASTER 

CRITS) 

GO 

TO 

51 

IFIMCRIT .GT. C) 
MCRIT= 1 
CONTINUE 

GO TO 

51 



IFIMCRIT .LE. C) 
DO 53 1 = 1 , IK 

GO TO 

50 




5 3 WRITE ( MWRI TE ,54) I ,DISP(I *4-3 ) ,D IS P (1*4-2 ) , OISP( I *4- 1 ) , DI S P ( I *4 ) , 
♦ COPY! I ) ,COPZ( I ) ,BINP! 1 , 2), P. IMP! I ,2 ) , EPSI ( I ) ,FAI LI ( I ) , 

*EPSC! I ) ,FAILO( 1 ) 

54 FORMAT (I 5,4012.4, 5E I 2 . 4 ,A 2 ,E 1 2 . 4 , A 2 ) 

WRITEIMWR I TE, 54) IKP 1,1) ISP! IKP 1*4-3) ,D I SP ( I KP I* 4-2 ) ,D I SP! IK Pl*4-1 ) 
*,DISP!IKPl*4),CCPYdKPl),C0PZ(IKPl) 

WR ITE ( MWR I TE , 55) ASTER 

55 FORMAT (//, 5X, A2, • STRAIN EXCEEDS THE CRITICAL VALUE') 

RETURN 
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Don 


50 OC 21 1 = 1 , IK 

2 1 WRITt { MWK I Tt , 2 2 ) I , 01 SP ( 1*4-3 ) ,01 SP { 1*4-2) , U I S P ( I *4-1 ) , OISP ( 1 *4 ) , 
*CUPY( I ) ,CUPZ( I ) ,3 INP( I, 2), b IMP( I , 2) , EPSI ( I ) ,EPSO( I ) 

2 2 FORMAT ( 15 ,4012.4 ,5E12.4,2X ,E1 2.4 ) 

WRITE(MWR ITE, 22) IKPl,OISP( IKP 1*4-3) ,01 SP( IKPl*4-2) ,0 I S P (I K P 1*4- 1 ) 
*,DISP(IKP1*4) ,CnPY ( IKPl ),CnPZ{ IKPl ) 

RETURN 

END 


JET3A MAIN PROGRAM FOR UNIFORM THICKNESS CIRCULAR RING 
JET3A CENTRAL DIFFERENCE OPERATOR 
COMPLETE RING ***** 

01 MENS I ON A (S ,3 ) ,ANASS( 206 0 ) , OM AS S { 2060 ) ,Y (51),Z(5l),TXG(6),TWG(6) 
*,ES 15 ) ,GFL ( 6) , EPS { 5) , SI G(5 ) ,SOL(2 05 ) ,INUM( 2 05) , KRUWI3) ,N0£X (8) 
COMMON /TAPE/ MRE AD, Mw R IT E ,M PUNC H 

COMMON /FG / I K,NOGA, NFL,NSFL,NI , ICGL (2 05) , NBCUNO,NbC (4 ),N0DE8{4 ) 
COMMON /HM/ R, a,H, DENS , YOUNG, OS , C 5, C 5 , A SFL ( 6, 5) ,GZE TA(6) ,SN0(5) 
COMMON /VQ/ FLVA(205) ,0ISP{2O5),0ELC{205),SNS(50,3,6,5 ), 

*aiNP( 50,3) , BIMP(50, 3) 

COMMON /BA/ BEP{ 3,3, 3) ,AXG(3 ), AWG( 3 ) 

COMMON /SC/ HCRI T, GRITS, BIG, I81G,BTIME,ISURF 

COMMON /FORCE/ FMECH(2 05) ,T1, AMP IFV , AM PIF W , T2 , AMP2F V , A MP2F W , 
*AMPFV, AMPFW,N0FT1 ,N0FT2 ,N0FT3, JELEMIA), ETA I 4) , RTUV ( 4) , R TOW( 4) , 
*NSTF2(4),NELF2( 4),RT02V(4i ,RT02W(4) ,NSTF3(4) ,NELF3(4) ,RT03VI4), 
*RT03W(4) ,FM1(4 ,8,2 ) ,FM2 (8, 2 ), FM3I8, 2 ) , S LOPE V , SL OPF W 

COMMON /E LFU/ SPRl N(2060) , FQREF { 20 5 ), NORP , NGRO ,NREL(4 ) ,REX (4), 
♦NRSTI4) ,NREU(4) 

REAL* 8 A,BEP, AMASS,AL, FLV A ,SOL , FMEC F, BX, 8L , 0 I S P, DFLO 

R£AL*8 SPR IN, FQREF, 3HASS 

MREAD=5 

MWRI TE=6 

MPUNCH=7 

REAOIMREAO ,1 ) R, B, H, DENS, EXANG, IK , NCGA ,NFL ,NSF L, MM, M 1, M2 
REA0(MREAD,2) DEL TAT, theta ,CR I TS , OS , P , (EPS ( L ) , SI G { LJ , L = i , N SFL ) 

1 FORMAT (5E15. 6/715) 

2 FORMATI5E15.6/{4E13.6) ) 

REAi)(MREA0,3) (AXG(K) ,K^l,NGGA) 

REAOlMREAD,3) ( AwG( K) ,K=1, NOGA ) 

RFAOIMREAO ,3) (TXG(K) ,K = 1,NFL) 

REAO(MREAO,3) (TWG( K) ,K=1,NFL J 

3 FORMAT (4F15.10) 

RFAOIMREAO ,4) NBCOND, ( NBC ( I ) ,NOOEB (I) , 1=1, NBCONO) ' 

4 F0RMATI9I5) 

READIMREAO ,9 ) NQR , NORP , NORU 
9 FORMAT 1315) 

CALL I DENT (NCR) 

PI E=3. 14159265 
NI=IK*4 

THETA = THET A*P I E/180. 

RX=2.*PIE 
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BL=3X*R 

AL=bL/ IK 

AX=BX/ IK 

L)U 70 K=1,NFL 

GFUK)=H*B«TWG(K)/2. 

7C GZFTA(K)=H*TXG(K)/2. 

GSU) = SIG( 1)/EPS( 1) 

YOUNG=ES( I ) 

I F (NSFL-1 ) 77,77,76 

76 DO 73 L=2,NSFL 

78 ES(L)=(SIG{L)-SIG{L-IJ J / ( E PS ( U -EP S (L- U i 

77 ES(NSFL+1 ) =0. 0 
00 79 L=1,NSFL 

79 SNG(L) =ES ( U*EPS (U 

00 71 K=1,NFL 
DO 71 L=1,NSFL 

71 ASFL(K,LI = GFL{K)«(ES (LJ-ES (L + n )/ES (1) 

DO 72 K=1,NGGA 

AXG(K) = AXG (K> *AL/2. 

72 AWG(K)=AWG (K) *AL/2. 

DO 15 1=1,0 

15 ICCLm=l 
I KM1=I K-1 

DO 16 I=3,IKiMl 

ika=i*a 

1 K 3= I K 4- 1 
IK2= IK 4-2 
I Kl=IK4-3 
JJ=( I-l)*4-3 
ICGL ( IKl ) = JJ 
ICQL( I K2) =JJ 
ICUL(IK3) = JJ 
IC0LUK4) =JJ 

16 CONTINUE 
iCCL { IK*4 )=1 
ICGL( IK*4-1)=1 
ICOL ( IK*4-2)= 1 
ICCL(IK<=4-3)=1 
INUMC 1)=1 

DO 99 1=2, NI 

99 I NUM( I I = I-ICOL (I-l ) + INUM( I-l ) 

DO 990 1 = 1 ,NI 

990 I NUM{ I ) = INUM( I )-ICOL( 1 ) 

NI RREG=0 

INDEX=0 

ISET=1 

DO 116 1 = 1 ,NI 
L=ICQL( I ) 

I F (ICOUI J -IS ET) 117, 1 16,1 19 
119 I SET = ICOL ( I) 

GO TO 116 

117 NIRREG=NI RREG+1 

IF (NIRREG-NI/ 2)711,711, 90 
711 KRGW(NIRREG)= I 

NDEX{ NI RREG) =I NOEX 
116 INDEX= INDEX+l-L 
90 CALL F ICCL (NI ,M , L, ICOL ) 

1 SIZE=L 

WRITE(MWRITE, 17) L 

17 FOKMAT(/,» SIZE OF ASSEMBLED MASS OR STIFFNESS ,M AT R I X= • , I 5 ) 
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CALL EL MPP ( AL, A, AMASS, BMAS S , K ROkV , NO E X , N I RPEG , J NUM, 
*ISIZE,OELTAT) 

IF (NOk .EQ. 0) GO TO 20 
DO 23 L = 1 , ISI ZE 

23 SPRIN (L ) = G.O 
CALL QREM(A,AL,K) 

00 24 I=l ,NI 

24 FQREF{ I )=0.0 

2 0 IF (OS. EQ. 0.0) GO TO 21 

C5=l./P 

C6=1./DS/DELTAT 

21 DTSQ = DELTAT^'*2/(UENS*B*H) 

C2=DENS*3«H/( 2.*0ELTAT**2 ) 

HHALF = H/2 . 

MCRI T = 0 

BIG=10.**=(-10) 

IBIG=0 

1 T=0 

TIME=0.0 
DO 75 1 = 1 , IK 
ANG=( I-l) ■S'AX+THETA 
Yl I)=S INI ANG) 

75 Z( I)=COS(ANG)«R 

CALL IMPULSIDELTAT.AL) 

RE AD (M RE AD, 5 ) T B EG IN , T F IN AL, AMPl FV, AMP IFW 
5 F0RMATI4E15.6) 

IFITFINAL .Eg. 0.0) WR I TE ( MWR IT6 , 48 ) 

43 FORMATI'O THERE IS NO TIME DEPENCENT FORCE DISTRIBUTION DURING 
♦ TH IS RUN • ) 

IFITFINAL .EQ. 0.0) GO TO 49 

CALL LOADEOI A,R, AL, TB£GIN,TF I^AL) 

49 APDEN=0.0 

CALL PRINT I IT, T I ME, HHAL F, AX , Y , Z, THET A, AP OEN , FQR E F, 3M A SS , C 2 , 
*NQR,KROW,NOEX, NIRREG,CI NETO) 

NREADF=0 

T1=TBEGIN 

NLUAE)=2 

I F (T3EGIN.GT .0 .0 .OK. T F I N AL . EO .0 . C ) GO TO 120 
NL0AD=1 

CALL LOADFT(TIME,NREADF) 

CALL SOLV I AMASS, FMECH, SOL , ICOL , KROW ,NDEX, N 1 ,NI RREG ) 

00 26 1=1, NI 

26 DELDI I ) = DELU( I )+l)TSQ*SUL( I )/2. 

IFINLOAD .EO, 2) GG TO 120 

APD=0.0 

DC 46 1 = 1 , M 

46 APD=APO+FMECH I I ) *DELD( I ) 

APDEN=APDEN+APD 

120 IT=IT+1 
TIME=IT*DELTAT 
DC 121 1 = 1, NI 
FQREF II ) =0.0 
FLVAI I )=0.0 

121 DISPI I )=01SP( I ) + DELD( I ) 

DO 129 K=1 ,4 

DISPI IK<'4 + K)=DISP(Ki 
129 DELDI I K«4 + K) = DELD|K) 

45 CALL STRESS 

IF INQR .EQ . 0 ) GO TO 127 

CALL OMULT|SPRIN,OISP, I COL , N I , F QK E F ,K ROW , N DEX , NIRREG) 
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DO 128 1=1 ,fM I 

12U FLVA( I )=FL VA ( I ) + FQREF( I ) 

127 NLOAD=2 

IF (TIME.LT.TBFGIN .OR. T I M E . GT . T F I (Si AL ) GU TO 122 
NLQAD=1 

CALL LOADFTl TIME.NREAOF ) 

DO 123 I=1»NI 

123 FL VA{ I )=FL VA( I 1-FMECH( 1 1 
122 IFINBCOND .EQ. 0) GO TO 124 

DO 125 I=1,NBCGND 
JT4=N00EB( IJ=(=4 
FLVAI JT4-3 )=0 .0 

IF (NSC ( I ) . EQ. 1 .OR. NBC(I).EQ.2) F L VA ( JT4- 1 ) =0 .0 
IF(NBC(I )-EQ.2 .OR. NBC(I).EQ.3) F L VA ( JT4- 2 ) =0 . 0 

125 CONTINUE 

124 CALL SQLV( AMASS, FLVA, SOL, ICOL.KRGW^NDEX, NI ,NIRREG) 

DO 126 I=1,NI 

126 OELD( I )=OELD(I )-SOL{ I ) *DTSG 
IFINLOAD .EQ. 2) GO TO 41 
APD=0.0 

DO 42 1=1, NI 

42 APD=APO+FMECH| I) <=DELD{ I ) 

APDEN=APDEN+APD 

41 IF(IT .EQ. 11 CALL PR I N T{ 1 T, T I i^E , H H ALF , AX , Y , Z , THE T A , A POE N , F QRE F , 
ABI^ASS,C2,NQR,KR0W ,NDEX, NIRR£G,CINETO) 

IF(IT-Ml) 130,140,150 
140 M1=M1+M2 

CALL PR I NT ( IT, T I ME, HHAL F , AX , Y , Z , THET A, APDEN , FQRE F, BMASS,C2, 
♦NQR,KROW,NOEX, NIRREG,CI NETO) 

130 IF(IT-MM) 120,170,150 
170 IF(IBIG) 62,150,62 
62 IF(ISURF-2) 64,65,65 

64 WRITE(MWRITE,66) B IG , I B IG , 0T I I^E 

66 FORMAT!///, • LARGEST COMPUTED STRAIN =',E15.6,’ OCCURS AT THE 
♦ INNER SURFACE MIDSPAN OF ELEMENT =',I3,' AT TIME (SEC.) =',E15.6) 

GO TO 150 

65 WRITE(MWRI TE,67) 3 IG , I DIG , BTI ME 

67 FORMAT!///, • LARGEST COMPUTED STRAIN =',E15.6,' OCCURS AT THE 
♦CUTER SURFACE MIOSPAN OF ELEMENT ^',13,' AT TIME (SEC.) =',E15.6) 

150 CALL EXIT 
END 


SUBROUTINE AS S EM ( IR, IK ,ELMAS, STIFM , ICOL,NI ) 
C COMPLETE KING ♦♦♦♦♦ 

01 MENS ION ELMAS! 8,3) ,NN(3 ) ,STIFM( 1 1 ,IC0L(1 ) 

REAL*8 ELM AS, STIFM 

J1=IR*4 

NN!l)=Jl-3 

NN!2)=Jl-2 

NN(3)=J1-1 

NN!4) = J1 

IF(IR-IK) 203,204,204 
203 J2=(IR+1)*4 

NN!5/=J2-3 
NN(6) =J2-2 
NN(7)=J2-1 
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NN(8) =J2 
GO TO 202 
204 NN(5)=1 

NN (6)=2 
NN 17 ) = 3 
NtN(8)=4 

202 DO 402 1=1,8 
M=NN( I ) 

DO 402 J=l,8 
N=NN( J ) 

I F (M-N)402 ,403 ,403 
4C3 CALL FICOL (M,N,L,ICGL) 

STIFM(L)=STIFM(L)+ELMAS(I , J) 
402 CONTINUE 
RETURN 
END 


SUBROUTINE ASSEFI IR, IK , ELF P, F LVA ) 
COMPLETE RING 

DIMENSION NN( 8) ,FLVAI 1 ) ,ELFP( 1) 

REALMS ELFP,FLVA 

J1=I R*4 

NN{l)=Jl-3 

NN(2)=Jl-2 

NN(3)=J1-1 

NN(4 ) = J1 

IF(IR-IK) 121,122,122 

121 J2=(IR+1>*^ 

NN(S )=J2-3 
NN(6)=J2-2 
NN(7)=J2-1 
NN(8) =J2 

GO TO 123 

122 NN(5)=1 
NN{6)=2 
NN(7I=3 
NN(3)=4 

123 DO ICl 1=1,8 
M=NN ( I ) 

FLVA(M)=FLVA(M) + ELFP(I ) 

ICl CONTINUE 
RETURN 
END 
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SUiiROlJTI.NF IDENT(NGR) 

C ♦♦♦♦♦ COMPLETE RING *=*=*=*=* 

COMMON /EG/ IK,NGGA, NFL,NSFL,NI, I C CL ( 2 05 ) , NBCOND, N BC ( 4 ) , NO DE B ( 4 ) 
COMMON /HM/ R, B,H,OENS, YOUNG, DS ,C5 , CL , ASFL { 6 , 5 ) , GZE T A ( 6 ) , SNO ( 5 ) 
COMMON /TAPE/ MR E A D, MW R IT E ,MPUNCH 
WRITE (MWR I TE, 1 ) R ,B,H, DENS ,IK,NOGA , MFL,(MSFL 

I FORMAT! » «=^<^jlfT3A A SPATIAL FINITE ELEMENT AND TEMPORAL CENTR 

«AL DIFFERENCE PROGRAM', /,' USED TO CALCULATE THE NONLINEAR RESP 
*ONSES OF A UNIFORM THICKNESS C I RCUL AR • , / , • COMPLETE PING WITH T 
*HE FOLLOWING PARAMETERS ',//, 

MEAN RADIUS OF RING (IN.) =',E15.6,/, 

♦ • WIDTH OF RING (IN.) =',E15.6,/, 

*• THICKNESS OF RING (IN.) =',E15.6,/, 

*• DENSITY ( L0-SEC'!'«2/ IN**4) =',E15.6,/, 

NUMBER OF ELEMENTS =',I5,/, 

NUMBER OF SPANWISE GAUSSIAN PTS =',I5,/, 

*• NUMBER OF DEPTHWISE GAUSSIAN PTS =',I5,/, 

** NUMBER OF MECHANICAL SUBLAYERS =',I5) 

II IF(NBCOND .EQ. 0) GO TO 12 
DO 14 1 = 1, NBCOND 

IFINBCm .EQ. 1) WRIT E (KWRITE, 15 ) NODEBI I ) 

IF(N8C(I) .EQ. 2) WRITE(MWRITE,16) NODEB(I) 

IF(NBC(I) -EQ. 3) WR ITE(MWRITfc, 17) NODEB(I) 

14 CONTINUE 

15 FORMAT (• SYMMETRY DISPLACEMENT CCNOITION AT NUDE =',I5) 

16 FORMATC CLAMPED DISPLACEMENT CCNOITION AT NODE =',I5) 

17 FORMATC HINGED DISPLACEMENT CCADITION AT NODE =',I5) 

GO TO 18 

12 WRIT£(MWRITE,13) 

13 FORMAT!/, • THERE IS NO PRESCRIBED DISPLACEMENT CONDITION’) 

18 IF (NQR .EQ. 0 ) GO TO 19 
WRITE!MWRI TE ,20) 

20 FORMAT!/, • CONSTRAINTS (ELASTIC FCUNDA T I ON/ S PRI NO ) A S DESCRIBED 

* BY INPUT ' ) 

RE TURN 

19 WRITE(MWRITE, 21) 

21 FORMAT!/, • THERE ARE NO ELASTIC SPRING CONST RA I N t S ' ) 

RETURN 

END 


SUBROUTINE I MP UL S ( DE LT AT, A L) 

C <=«««<= COMPLETE RING ***** 

COMMON /FG/ I K,NOGA, NF L ,NS FL , N I , I C GL (2 05 ) , NBCOND, NBC ( 4 ),N0 0£6( 4) 
COMMON /VQ/ FLVA(205) ,0ISP(205),DELC{205) ,SNS( 50,3,6,5) , 
*HINP(50,3) , 8IMP(50, 3) 

COMMON /TAPE/ MR E AD , MWR IT E ,MPUNCH 
REAL*8 FLVA,DISP,OELD, AL 
DO 50 1=1 ,NI 
DELD( I )=0.C 
50 DISP(I) = 0.0 

DO 51 IR=1 ,I K 
DO 51 J = 1,NC)GA 
3INP( IR, J ) =0.0 
81 MP( I R,J) =0. 0 
DO 51 K=1,NFL 
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DC] 5 1 L=l, NSI-L 

51 SNS( 1R» Jf K,L) =0.0 
REAOIMRFAD , 1 ) NV, IOTA, lUTG ,IOTC 

1 FGPHAT(4I5) 

WR ITE ( MWRI TF , 2 ) DFLTAT 

2 FORMAT!/, • TIME STEP SIZE USED I;0 PRU3RA.M (SEC) =*,E15.6) 

IF(NV .EO. 0) WRITE! MW RITE, 4) ' ^ 

1F!NV ,GT. 0) WRI TE!MWRITE ,6) 

^ FORMAT!/,' THERE IS NO INITIAL 1^PULSE ') 

6 FORMAT!/,' IMPULSE LCADINGS HAVE EEEN SPECIFIED AS DESCRIBED BY 

♦ INPUT •) 

I F !NV .EQ. 0) GO TO 41 
IF (IOTA .EG. 0) GO TO 10 
DO 20 IM=1,I0TA 

READ(MREAD,21 ) I E I , I E2 , WR A D, W RADI , ANGV 1, WR AD2, ANGV2 

21 FORMAT !2I 5/5E 15.6) 

IF2M1=IE2-1 

00 22 1 1=1 ,IE2M 
1= lEl + I I 

IF(I -GT. IK) I=I-IK 

22 OELD! I ^4-2 )=DELTAT=i'WRAD 
DELO! IE1*4-2)=DELTAT*WRAD1 
OELD! IE1^4-1 ) =DELTAT*ANGV1 
IE2P1=IE1+IE2 

IFIIE2P1 .GT. IK) IE2P l=IE2Pl-IK 
OELD! IE2Pl<=4-2 ) = DELTAT<'WRAD2 
0ELD(IE2P1*4-1 )=0ELTAT*ANGV2 
20 CONTINUE 

10 IFIIOTR .EG. 0) GO TO 42 

DO 30 IM=1,I0T8 

REA0!MREA0,31 ) NODEV , V RAD , WRAD, ANGV 
31 F0RMAT!I5, 3E15.6) 

DELD(NOOEV*4-3 )=DELTAT *VRAD 
DELD!NQDEV*4-2) = 0ELTAT«WRAD- 
D ELD (NODEV *4- 1 ) = DE LT AT «ANG V 
30 CONTINUE 

42 IFdOTC .EQ. 0) GO TO 60 

DO 61 IM=1,I0TC 
READ!MREAD,62 ) IS1,IS2,WRAD 

62 F0RMAT!2I 5,E1 5.6) 

PIEP=3.141592 6 5/ IS2 

DELDt ISl‘4-1 ) =WRAO«=DELTAT=«=P!eP/ AL 
DO 63 II=1,IS2 

1 = IS1 + I I 

IF!I .GT. IK) I = I-IK 

DELD! I *4-2 ) = W RAD* DELTA T*SIN!PI£P*1 I ) 

63 DELD! 1*4-1 )=WR AD*DELTAT*P I EP*COS (PIEP*II)/AL 

61 CONTINUE 

60 IF!N3C0ND .EQ.O) GO TO 41 

DO 4 0 1=1 , NBC CND 
JT4=N0DED! I)*4 
OELD! JT4-3 ) = 0 .0 

I F (NBC ! I ) . EQ. 1 .OR. NBC(I).E0.2) D E LD ! JT4- I ) =0 .0 
1 F (N8C ! I ) . £w. 2 .OR. N8C(I).EQ.3) D E LD ( JT4- 2) =0 . 0 

40 continue 

41 DO 52 K=l,4 

DlSP! IK*4+K)=DISP(K) 

52 DELD!IK*4+K)=DELD(K) 

RETURN 

END 
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SUBROUT I Nt PR I NT ( IT, T I ME, HHAL F , A X , Y ,Z , THE T A , A P DEN , FQR E F, BM A SS , C 2 , 
«NQR,KROU,NOEX,NIRREG,CI NETG) 

I c COMPLETE RING 

D I MENS ION YI5 1 ) , Z (51 ) , COPY (51 ),COPZ (51 ) , BE PS ( 3 ) , EP S I ( 5 1 ) , E P SO( 5 1 ) 
*,FQREF ( 1), HMASS( 1 I ,KRQW( 1) ,NOEX( 1) , C I NE ( 205 ) , F A IL I ( 50 ) , F A I L 0 ( 50 ) 
COMMON /FG/ IK,NOGA, NF L , N S FL , N I , I CG L ( 205 ) , NbCO NO, N BC ( 4 ) ,N0 DEB ( 4 ) 
COMMON /HM/ R, B,H , DENS, YOUNG, DS ,C5 , C6 , ASFL ( 6 , 5 ) ,GZETA (6 ),SN0 (5) 
COMMON /VQ/ FLVA(205),DISP(205),DELC(205) ,SNS( 50,3,6,5) , 
*3INP(50,3) , eiMP(50,3) 

COMMON /BA/ 3EP( 3,3, 8) ,AXG (3) ,AWG ( 3 ) 

COMMON /SC/ MCRIT,CRITS,3IG, IBIG,BTIME, ISURF 
COMMON /TAPE/ MREAD, MWRIT E ,MPUNCH 
REAL*0 BEP ,FL VA, OISP ,OELD , 6MA SS , FQ R EF , Cl NE 
DATA ASTER/'*'/, BLANK/' '/ 

DO 700 1 = 1 ,NI 
700 CINE(I) = 0.0 

CALL OMULT ( BM A SS , C EL D, I COL , N I , C I NE , KROW,NDEX, N IkREG) 

C INET=0.0 
DO 701 1 = 1 ,N I 

7C1 CINET=CINET+DELO(I )*CINE( I ) 

C INET = CINE T*C2 

IF(IT .EQ. 0) CINETO=CINET 

ELAST=0.0 

DO 702 IR=1,IK 

00 703 J=1,NC)GA 

SUM=0. 0 

DO 704 K=1,NFL 
DO 704 L=1 ,NSFL 

7C4 SUM=SUM + SNS(IR , J , K ,L ) * * 2* A SF L (K , L ) 

7C3 ELAST=ELAS T>SUM*AWG( J ) 

702 CONTINUE 
SPDEN=0.0 

IF(NQR ,EQ. 0) GO TO 31 
DO 32 1=1, NI 

32 SPDEN=SPDE,\+DISP ( I »*FQREF( I) 

SP0EN = SPDEN/2. 

31 ELAST = ELAST/Y0UNG/2. 

Cl NETT=CI NETO+APDEN 
PLAST=CINETT-CINET-ELAST-SPDEN 

WRITE(MWR I TE, 1 ) I T ,T IM E ,C I NE T T , C I NE T , E LAST , P LA ST 
1 FORMAT Cl J = ',I5,' TIME (SEC.) =',E15.6,/, 


♦ • 

TOTAL ENERGY 

INPUT 

( I N.-LB. ) 

=',E15.6 

,/ 

* • 

K I NET IC 

ENERGY 

(IN .-LB. ) 

= ',E15.6 

,/ 

* • 

ELASTIC 

FNERGY 

(I N.-LB. ) 

=* ,E15.6 

,/ 

« » 

PL AST I C 

WORK 

( I N .-L3. ) 

= *,E 15. o 

) 


IF (NQR .EQ. 0 ) GO TO 33 
WRITE(MWRI TE,34) SPDEN 

34 FORMAT C ENERGY STORED IN THE ELASTIC RESTRAINTS ( I N .-LB . ) =', 

*E15.6) 

33 DO 11 1=1, IK 

ANG=( I -1 )*AX+THETA 

COPY! I ) = Y ( I I + DISP ( 1*4-3 )*COS( ANG ) +D ISP (I *4-2 ) *SIN( ANG) 

11 COPZ ( I ) = Z ( 1 )-niSP ( 1*4-3 )*S IN ( ANG i+D ISP ( I * 4-2 ) * COS ( ANG ) 

DO 601 IR=1,IK 
DO 604 1=1,3 
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8EPS( I )=0. 0 
DO 004 K=l,8 
I NDEX= (IR-1 )^4+K 

6 04 BEPSn ) = BEPS( I) + B E P { 2 , I ,K > I SP ( I NDEX ) 

FARE=BEPS ( l)+QEPS(2)**2/2. 

FCUR=8EPSl 3) 

EPSI ( IR )=F ARE-HHALF*FCUK 
EPSO( I R) = F ARE+HHALF*FCUR 
601 CONTINUE 

DO 60 IR=1,IK 

IF(EPSKIR) .LE. BIG) GO TG 61 
B I G= E P S I ( I R ) 

I BIG=IR 
I SURF=1 
BT IME=TIME 

61 IF(EPSOdR) .LE. BIG) GO TO 60 

B IG=EPSO( I R) 

IBIG= IR 
ISURF=2 
BTIME=TIME 
60 CONTINUE 

WRITE(MWRITE,2) 

2 FORMATl/,* I • , 3X, • V* ,1 IX,* W* ,9X, *PSI • ,9X, *CH1 • , lOX, 'COPY* » 

♦ 8X, *COPZ* ,9X, • L* , IIX, *M • , 7 X , • STRA I N ( IN ) * , 4X , • S T RA I N ( OUT ) • ) 

IF (MCRIT .GT. 0) GO TO 50 
DO 51 1=1, IK 
FAILI ( I )=BLANK 
FAILOI I )=BLANK 

IF(EPSHI) .LT. CRITS) GO TO 52 
FA ILI ( I ) = ASTER 
IF (MCRIT .GT. 0) GO TO 52 
MCRIT=1 

52 IFIEPSOd) .LT. CRITS) GO TO 51 
FA ILO{ I ) = ASTER 

IF (MCRIT . GT . 0) GO TO 51 
MCRI T=1 

51 CONTINUE 

IF(MCRIT .LE. 0) GO TO 50 
DO 53 1 = 1, IK 

53 WRITE(MWRI TE, 54) I ,DISP( I ^4-3 ) ,D I S P ( I *4-2 ) ,DlSP(I«4-l),DISP(d4), 
=«=COPY( I ) ,COPZd ) ,BINP( 1 ,2 ), B IMP( 1 , 2 ) , EPS I (I ) , FA ILK I ), 

*EPSO( I ) ,FA ILO( I ) 

54 FORMAT (15,4012.4, 5E12.‘*,A2,E12. 4, A2 ) 

WRITE ( MWRI TE , 55) ASTER 

55 FORMAT (//, 5X, A2, * STRAIN EXCEEDS THE CRITICAL VALUE*) 

RETURN 

50 DO 2 1 1=1 , IK 

21 wRITE(MWR I TE, 22) 1 , 01 SP ( K4-3) ,DI SP( 1-4-2) ,DISP (1^4-1) ,OISP ( 1*4) , 

*COPY( I) ,COPZd ) ,8INPd,2),BIMP(I,2) ,EPSId) ,EPSOd ) 

22 FORMAT (I 5, 40 12.4, 5E1 2.4,2 X ,E 12. 4) 

RETURN 

END 
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SUBROUTINE ELMPPIAL, A, AMA S S, BMAS S, KROW,NDE X, NI RREG ♦ I NU W, 

♦ ISIZE tOELTAT) 

TO FIND THE MASS MATRIX STIFFNESS PATRIX AND STRAIN NODAL 
DISPLACEMENT TRANSFORMATION MATRICES 

0 I MENS ION A( 8f 8) , LMI (8 ) ,MMU8) ,D ( 8 ,6) ,ELM( 8,8 ) , ELM AS (8,8), 

♦ E(8,8) , EK1(8,8 ),ELK (8,8 ),BE1(3,3,8) 

DIMENSION AMASSd ) ,BMASS( 1 ),KROW( 1 ) ,ND£X(1 J, INUM( 1) 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI , ICCL(205) , NBCOND,NBC (A ) ,NODEB( A) 
COMMON /HM/ R, fi,H, DENS, YOUNG, DS,C5,C£,ASFL( 6,5) ,GZETA(6),SN0(5) 
COMMON /BA/ BEP( 3,3,8) ,AXG(3) ,AWG(3 ) 

COMMON /TAPE/ MREAO, MWRITE ,MPUNCH 

REAL*8 AL ,X,RHG,RI ,STO , SS , A, P2 , P 3 , C , EL M, EL MAS, BEl, BEP, E,EK 1,ELK 
REALMS AMASS, BMASS 
X = AL/ (R«2. ) 


RHG=1. 

RI=RHO«H«*2/12. 

STO=l. 

SS=STO*H**2/12. 

DO 6 1=1,8 
DO 6 J=1 ,8 
0( I, J)=0.0 
E( I, J )=0.0 
A( I, J)=0. 

A( l,l)=DCOS(X) 

A( 1,2)=0S IN(X ) 

A( 1,3) =(-R)*(l.-DCCS (X)**2) 
A( 1, A)=-AL/2. 

A(2,l )=-DS IN(X) 
A(2,2)=DCOS(X) 

A( 2,3 )=-R*DSIN(X)*DCOS(X) 
A(2,5)=AL**2/A. 

A( 2,6) =-AL**3/8. 

A(3,3)=l. 

A(3,A)=AL/R/2 . 

A( 3,5)=-AL 
A(3,6)=AL**2*3./A. 

A( 1,7)=AL*»2/A. 

A( 1, 8)=-AL**3/8. 
A(3,7)=-AL**2/A./R 
A( 3,8) =AL**3/8./R 
A( A, A)=l. 

A(A,5) = AL**2/A./R 
A( A,6) =-AL**3/8./R 
A(A,7)=-AL 
A( A,8)=3-AALA*2/A. 

A( 5, l)=DCOS(X) 
A(5,2)=-DSIN(X) 
A(5,3)=(“R)=^(1.-DCQS(X)**2 ) 
A( 5, A)=AL/2. 

A(5,7)=AL**2/A. 

A( 5,8) =AL*»3/8. 

A(6, 1)=DSIN(X ) 
A(6,2)=DCGS(X) 

A( 6,3)=RADSIN( X)*DCOS(X) 
A(6,5)=AL^A2/A. 

A( 6,6) =AL**3/8. 

A( 7, 3) = 1. 

A(7,A)=-AL/2./R 
A( 7,5) =AL 
A(7,6)=AL*A2<'3./A. 
A(7,7)=-AL*«2/A./R 
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3 


A 


5 


A(7,8)=-AL**3/8./R 

A18,4»=1. 

A( 8,5)=AL«*2/4./R 
A(8f6)=AL**3/8./R 
A( e,7)=AL 

AC 8t 8) = 3.=«'AL**2/4. 

CALL MINVC A,8,CET,LMI,MMI ) 

P2=2.*X**2*0SIN( X)+4,*X*DCCS(X)-4.*CSIN(X) 

P3=-2.*X**3*DC0S( X »+6.*X**2*DSINC X1 + 12.^X<'0C0S ( X) -12 .♦DSIN ( X ) 
DC If 1 )=RHO*AL 
DC 2f 2)=RH0*AL 

DC3f 1)=RH0*R*C-R*2.<'0S INCX )+DCOS C X J «AL ) 

DC 3f 3)=RHO*R**2*C AL+DCOSC X )*<'2»AL-4.*R*DSI NCX ) *DCOS CX ) )+RI*AL 
DC4f 2 )=-RHC+R**2*C-2**X*OCOSCX) + 2. *CSINCX) ) 

DC 4f 4)=RH0«AL**3/12. +R I *A L**3/R**2/ 12. 

DC 5f 2)=RHO*R=«'*3«P2 
DC5f4)=-RI*AL**3/R/6 . 

DC 5,5)=RHO*AL**5/80.+RI*AL**3/3. 

DC6f n = RH0*R**4*P3 

DC 6,3) =RHO*R**5*DCOS CX )*P3 +R I ♦AL^^'SM. 

DC 6, 6)=RHQ*AL**7/448.4-RI»AL**5*9. /8C. 

DC7,1 )=RHQ*R**3*P2 

DC 7,3)=-RH0*R*CAL**3/12.-R**3^0C0S CX)*P2)-RI*AL«*3/R/12. 

DC 7, 6)=-3.«RI*AL**5/R/80. 

DC7,7)=C AL**5/8O.)*CRH0*RI/R^*2) 

DC 8, 2)=-RHQ*R»*4*P3 
DC8,4) = DC7,7) 

DC 8,5) =-RI*AL**5/R/40. 

DC 8,8) = CAL**7/448. )♦ CRHO+R I/R*»2 ) 

EC4,4)=AL*CST0+SS/R**2 ) 

EC 5,4)=ST0*AL**3/CR»12.)-2.»SS*AL/R 
EC 5, 5) = ST0«AL**5/CR**2*80. )+4.*SS*AL 
EC6,6)=ST0«AL**7/CR*^2 *448 
EC 7,6)=ST0*AL**5/CR*40. )-SS*AL»*3/P 
EC7,7 ) = C STO+SS/R«*2)^AL**3/3. 

EC 8,4)=CSTC+SS/R**2)«AL*«3/4. 

EC 8,5)=3. *ST0*AL*»5/CR*80. )-SS*AL**3/C R*2. ) 
EC8,8)=9.*CST0+SS/R**2 )*AL**5/80. 

DO 3 1=1,7 
IPl=I-*-l 


DO 3 J=IP1,8 
EC I,J)=EC J,I) 
DC I, J) = DC J,I) 
DO 4 1=1,8 
DO 4 J=l,8 


EKIC I, J)=0.0 
ELMC I, J)=0. 

DO 4 K=l,8 

EKIC I, J) = EK1C I,J)+ACK, I)*ECK,J) 

ELMC I , J) = ELMC I ,J) + ACK, I )*DCK, J) 

DO 5 1=1,8 
DO 5 J=l,8 
ELKCI, J)=0.0 
ELMASC I ,J)=0. 

DO 5 K=l,8 

ELKCI ,J) = ELKC I , J H-EKl C I ,K ) *AC K, J ) 
ELMASC I,J)=ELMASC I , J ) + ELMC I ,K)*A CK , J) 
DO 44 K=l,NOGA 
DO 21 1=1,3 
DO 21 J=l,8 
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21 


44 


22 


16 

15 

17 

18 
19 


91 

712 

713 


C 

C 

C 


BEKK, I,JJ=0. 

BE1(K,1,4J=1. 

BEKK, 1,5)=AXG{K)<'*2/R 
BE1(K,1 ,6 )=AXG(K)«»3/R 
BE1(K,3,4)=1. /R 
BEl(K,3,5)=-2. 

BEK K,3,6) =-6.*AXG(K) 

BE1(K,2,3)=1. 

BEKK,2,4)=-AXG(K )/R 
BEK K,2,5)=2.*AXG(K) 

BE KK, 2, 6)=3. ♦AXG(K)=e'#2 
BE1(K,1,7 )=2-«AXG(K) 

BEKK,1,8)=3-*AXG( K)**2 

BEKK, 3,7 )=2. «AXG( K)/R 

BEKK, 3,8 J=3.«AXG(KJ**2/R 

BE 1(K,2,7)=-AXG( K)**2/R 

BEKK,2,8 )=-AXG(K )**3/R 

CO NTT NUE 

DO 22 NL=l,NOGA 

DO 22 1=1,3 

DO 22 J=1 ,8 

BEP(NL,I , J) = 0. 

DO 22 K=1 , 8 

BEP(NL,I , J)=BEP(NL,I , J)+BE1(NL,I ,K)*A(K,J) 

CONT INUE 

WRITE(MWR ITE, 15) 

WRITE(MWRITE,16) ( ( E LM AS( I , J ) , J=1 , 8 ) , I =1 , 8 ) 

WRITEIMWR ITE, 17) 

WRITE (MWR ITE, 16) (( ELK ( I , J ) , J = 1 , 8 ) t 1= 1 1 8 ) 

FORMAT(8D15.6) 

FORMAT!/, • ELEMENT MASS MATRIX / (DENS*8*H) •) 

FORMAT!/, • ELEMENT STIFFNESS MATRIX / !YOUNG*B*H) •) 

CO 18 L = l, ISIZE • 

AMASS!L) = 0.0 
DO 19 IR=1 ,IK 

CALL ASSEM! IR, IK ,ELMAS, AMASS, ICOL,NI ) 

IFINBCONO ,EQ.O) GO TO 712 

DO 91 1=1 ,NBCOND 

JT4=N0DEB! I)*4 

JTAM3= JT4-3 

JT4M2=JT4-2 

JT4M1=JT4-1 

CALL ERC! JT4M3 , AMASS, NI ,ICCL) 

IFINBCm.EQ.l .OR. NBC!I).EQ.2) CALL ERC ! JT4M1, AMASS , NI , ICOLI 
IF !NBC!I ) . EQ.2 .OR. NBC!I).EQ.3) CALL ERC! JT4M 2, AMAS S, NI , I COL) 
CONTINUE 

DO 713 L=l, ISIZE 
BMASS! L) = APASS !L ) 

CALL FAC! AMASS,ICOL,KRCW,NCEX,IDET,PWRITE,NI,NIRREG, INUM) 
IF!DELTAT .GT . 0.0) RETURN 

DETERMINATION GF DEL TAT IF NOT GIVEN 

CALL TSTEP! AMASS ,ELK,ISIZE,KRCW,NDEX,NIRREG, CELT AT) 

RETURN 

ENC 
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SUBROUTINE ERC( I It ST IFM,N I tICOL) 

C FOR ELIMINATING ROWS AND COLUMNS IN STIFM 

DIMENSION STIFMI 1) ,ICOLU) 

REALMS STIFM 
IC=ICOL(II ) 

DO 101 J = IC,II 

CALL FICOL ( II, J,L, ICOL ) 

101 STIFM(L)=0. 

00 102 I=II,NI 
IC1=IC0L( I ) 

IF(II-IC1)102, 103,103 
103 CALL FICOLI I,I I,L,1C0L) 

STIFM(L)=0. 

102 CONTINUE 

CALL FICOLI II, I I,L, ICOL ) 

STIFM! L)=l. 

RETURN 

END 


C 


152 

101 


10 2 
103 


C 

140 

104 

150 


151 

105 


SUBROUTINE FAC ( ST I F M, NCOL ,K ROW , NO EX , I DET , NT AP E6, NROWS ,NIR REG, 
LOWER TRIANGULAR FACTOR OF STIFM MATRIX IS COMPUTED AND STORED 
DI MEN SI ON STIFMIl ) , NCOL (1) , KRQW 1 1 ) , NCEX ( 1 ) , IC( 1 ) 

REAL*8 STIFM, SUM, TES, TEST 
STIFM 

PROCESS COLUMN 1 


IC) 

FAC TO 095 


FACTOlOO 

FACT0105 


1=1 

IDET=0 

IF (STIFM(D) 152,122,101 

IOET= IDET+l 

IN0EX=0 

IR0W=1 

TEST=1.0 

KN = 1 

DO 103 1 = 2, NROWS 
KN = KN<-I-NCOL( I ) 

IF {NCOL(I)-l) 103,102,103 
STIFM(KN)=STIFM(KN)/STIFM( 11 
CONTINUE 

DO 121 I =2, NROWS 

IP1=I+1 

IM1=I-1 

SUM=0. 0 

NCK=0 

II I=NCOL(I ) 

IN0EX= INDEX + I- III 
IF (IMl-II I ) 150,140, 140 
DIAGONAL TERMS 
CO 104 J=I I I, IMl 
IJ=INDEX+J 

SUM=SUM + STI FM( IJ)*STIFMI IJ ) *STIFM( IC I J) + J) 
I1=INDEX+I 
SUM = STIFM( I D-SUM 
IF (SUM) 151,122,105 
I0ET= I DET +1 
TE S=0ABS( SUM/STIFMI II ) ) 


FACTOllO 


FACT0130 
FACT0135 
FACT 0140 
FACTO 145 
FACT0150 
FACTO 155 
FACTO 160 
FACT0165 
FACTO 170 
FACT0175 
FACT0180 
FACTO 185 
FACT0190 
FACT0195 
FACTO 200 
FACT0205 
FACT0210 
FACT0215 
FACT0220 

FACT0230 

FACT0235 
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IF (TES-TEST) 106,107,107 

FACT0250 

106 

TEST=TES 

FACTO 255 


IROW= I 

FACT 0260 

107 

STIFM(II)= SUM 



OFF DIAGONAL TERMS 

FACTO 270 


IF (I-NROWS ) 108, 121, 121 

FACT0275 

108 

KNDEX=I NDEX 

FACT0280 

109 

DO 116 K=IP1,NR0WS 

FACTO 285 


KK=NCOL<K) 

FACT0290 


KNDEX=KNDEX+K-KK 

FACT0295 


SUM=0.0 

FACT0300 


IF (KK-III) 110,130,130 

FACT0305 

110 

KK=II I 

FACT0310 

130 

IF (IMl-KK) 112,131,131 

FACT0315 

131 

DO 111 J = KK,IM1 

FACT0320 


IJ= INDEX+J 

FACT0325 


KJ=KNDEX+J 

FACT0330 

111 

SUM=SUM+STI FM( I J) *STI FM ( KJ ) *ST IF M ( I C ( J ) +J ) 


112 

IF ( I-KK) 114, 115, 115 

FACTO 340 

114 

IF (NIRREG .LE. 0) GO TO 121 
IF (NIRREG .GT. NROWS /2) GG TO 116 

FACT0345 


GO TO 190 

FACT0355 

115 

KI =KNDEX+I 

FACT0360 


STI FM( KI ) = ( STI FM( KI )-SUM)/ STI FM( I I ) 

FACT0365 

116 

CONTINUE 

FACT0370 


GO TO 121 

FACT0375 

190 

NCK=NCK+1 

FACTO 380 


IF (NIRREG .LT. NCK ) GO TO 121 

FACT0385 


IP1=KR0W(NCK) 

FACT0390 


IF (I .LT. NCOL(IPl)) GO TO 190 

FACT0395 


IF (IPl .LT. K) GO TO 190 

FACT0400 


KNDEX=NDEX( NCK) 

FACT0405 


GO TO 109 

FACT0410 

121 

CONTI NUE 

FACT0415 


RETURN 

FACT0435 

12 2 

WRITE (NTAPE6, 1001 ) I 
IOET=-I 

FACT0440 

1001 

FORMAT (37H1 MATRIX NOT POSITIVE DEFINITE IN ROW, 14) 

FACT0450 


WRITE ( NTAPE6 , 1002 ) SUM 

FACT0455 

ICO 2 

FORMAT (27H0SQUARF OF DIAGONAL TERM = , D1 5 . 8 , /2 8H0 P ART I ALLY 

FACTORFACT0460 

1 

LED K MATRIX,// ) 

FACT0465 


RETURN 

FACT0470 


END 


SU8R0UTINE FI C CL ( I , J, L , ICOL ) 

C USING FORMULA L = J+ SUM ( K- IC OL ( K )) , K=1 , 1 TO RELATE ItJtTO L 

DIMENSION ICOL (I ) 

IF( J-ICGL(I 1)200,300,300 
300 ISUM=0 

CO 305 K=1 , I 
ISUM=K-ICOL (KI+ISUM 
305 CONTINUE 
L=J+ISUM 
RETURN 

200 WRITE(6,4) I, J 

4 F0RMAT(31H ELEMENT IS NOT IN BAND REGION, 3H I=,I5,3H J=,I5) 
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PETURN 

END 


SUBROUTINE LO ADEQI At Rt AL, TBEGIN , TF INAL ) 

C TO FIND GRNERALIZED NODAL LOAD AND EXTERNALLY- APPL lED LOAD TRANS- 

C FORMATION MATRICES 

D I MENS ION A(8,8), FM(8t 2), FMC( 8,2), FML( 8,2) 

COMMON /FORCE/ FMECHI2 05) , T1 , AMPl F-V , AMPIFW , T2 , AMP2FV , AMP2FW, 

♦ AMPFV,AMPFW,N0FT1,N0FT2 ,N0FT3 , JELEH(^) ,ETA(4) ,RT0V(4) ,RT0W14), 

♦ NSTF2 (4),NELF2 (A),RT02V(4) ,RT02W(4) , NSTF 3( 4 ) , NE LF3 ( 4) ,RT03V(4), 

♦ RT03WI4) ,F Mil 4 ,8,2) ,F M2 ( 8 , 2 ) , FM3 ( 8 , 2 ) , S LOPE V , SL OPEW 

COMMON /TAPE/ MREAD, MWR ITE ,MPUNCH 
REAL*8 A,AL 

IFITFINAL .EQ. 0.0) RETURN 
WRITE! MWRITE, 47) T 8EGI N ,T F IN AL 

47 FqrmATI'O STARTING TIME CF FORCING FUNCTION (SEC) =',E15.6,/, 

STOPPING TIME OF FORCING FUNCTICN (SEC) =*,E15.6) 

READ(MREAD,6 ) NO FT 1 , NO FT2 , NOFT 3 

6 FORMAT(3I5) 

7 FORMAT! 15, 3E15.6) 

8 FORMAT (215 ,2E15. 6 ) 

IF(NQFT1 .EQ. 0) GO TO 54 

READ (MREAD, 7) ( JEL EM( I ) , ET A ( I ) ,RTOV( I) ,RTOW( I ) , 1 = 1 ,N0FT1) 

DO 100 1 = 1 ,N0FT1 
SL=ETA( I ) 

X = AL/R/2 

FM(1 ,1)=C0S(SL/R) 

FM(2t 1 )=-SIN( SL/R) 

FM(3 ,1 )=-R«(l .-COS (SL/R )*CGS(X)) 

FM(4, 1)=SL 
FM(5,1)=0.0 
FM(6 ,1 )=0.0 
FM(7, 1) = SL«*2 
FM(8,1 ) = SL**3 
FM(1,2)=SIN(SL/R) 

FM(2,2 )=COS( SL/R ) 

FM(3 ,2 )=R*SIN( SL/R)*COS(X ) 

FM(4,2)=0. C 
FM(5,2 )=SL**2 
FM(6 ,2 ) = SL**3 
FM(7,2)=0.C ' 

FM(8,2)=0.0 
DO 101 M=l,8 
DO 101 N=l,2 
FMl ( I ,M,N)=0.0 
DO 101 K=1 ,8 

101 FMK I,M,M )=FM1( I ,M ,N ) + A (K , M) *FM( K , N ) 

100 CONTINUE 
54 DO 202 M=1 ,8 
DO 202 N=l,2 
FMC( M,N)=0.0 
202 FML(M,N)=0.0 

X=AL/R/2. 

FMC( 1 ,1)=R*2.=<'SIN(X) 

FMC( 3, l) = -R<'AL-t-R»*2*SIN(2.*X) 

FMC(7,1 )=AL**3/12. 
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FMC( 2, 2) = R*2,*SIN( X) 

FMC(5,2)=AL**3/12. 

FML( 2,n=-R*»2*(-2.*X*C0S(X)+2.*SIN(X) )/AL 
FML(4, 1 » = AL**2/12. 

FML(8,1 ) = AL*«4/80. 

FMU 1,2) = R«*2*(-2.*X*C0S( X )+2.*S IN ( X) ) /AL 
FML(3,2) = R**3*C0S(XJ*(-2.*X#C0S( X) *2.*SIN{ X) ) / AL 
FML(6,2)=AL*^4/80. 

DO 201 M=l,8 
DO 201 N=l,2 
FM2(M,N)=0.0 
FM3(M,N)=0.0 
DO 201 K=1 ,8 

FM2(M,N) = FM2(M,N)+A(K,W)»F«G(K,N) 

FM3(M,N )=FM3(M,N )+A( K, M)*FML (K,N) 

201 CONTINUE 

41 IF(N0FT2 .EQ.O) GO TO 42 

READ(MREAD,8) (NSTF2( I) ,NELF2( I ),RT02V( I ),RT02W(I) ,I = 1,N0FT2) 

42 IF(N0FT3 . EQ. 0) RETURN 

READ(MREAD,8) (NSTF3( i ) ,NE LF 3 ( I ) t R 7 C3V 1 1 ) ,RT03W(I ) ,1=1 ,N0FT3» 

RETURN 

END 


SUBROUTINE LOADFT ( TIME ,NREADF) 

TO FIND THE GENERALIZED NODAL LOAD VECTOR EQUIVALENT TO THE 
EXTERNALLY-APPLIED LOAD 
DIMENSION ELF(8) 

COMMON /FG/ IK,NOGA,NFL,NSFL,NI, IC C L (205 ) , NBCOND, N BC ( 4 ),N0 DEB( A ) 
COMMON /FORCE/ FMECH( 2 05) , 71 , AMP IF V ,AMP1FW ,T2 , AMP2 FV , AMP2 FW , 

♦ AMPFV,AMPFW,N0FT1 ,NCFT2,N0FT3, JELEMC A),ETA( 4) ,RT0V(4) ,R70W( 4) , 
♦NSTF2(4) ,NELF2(4) ,RT02V(4) ,RT02W(4) ,NSTF3(4 ) , NELF3 ( 4 ) , R T03V ( 4 ) , 

♦ RT03W(4),FM1(4,8, 2),FM2(8,2),FM3( 8, 2 ), SLOPE V, SLOPE W 

COMMON /TAPE/ MRE AO, MWR IT E ,MPUNCH 

REAL*8 FMECH,ELF 

IF(NREADF .GT . 0) GO TO 50 

51 READ(MREA0,52 ) T2 , AMP2 FV, AMP2FW 

52 F0RMAT(3E15.6) 

NREADF=1 

SLCPEV=(AMP2FV-AMPIFV)/(T2-Tl ) 

SL0PEW=( AMP2FW-AMP IFW) /(T2-TI) 

50 IF(TIME .LE. T2) GO TO 53 

T1=T2 

AMP1FV=AMP2FV 
AMPl FW=AMP2FW 
GO TO 51 

53 AMPFV=AMP1FV+ (TIME-T 1) *SLOPEV 
AMPFW = AMP1FW+ ( TI ME-T 1 ) ♦SL OPEW 
DO 57 1=1, NI 

57 FMECH(I)=0.0 

IFINOFTl .EQ. 0) GO TO 54 
DO 100 I=1,N0FT1 
NE=JELEM( I ) 

FMV=AMPFV*PTOV(I ) 

FMW=AMPFW*RTOW( I ) 

DO 101 J=l,8 

101 ELF( J)=FM1 (I , J,1 )*FMV4-FM1 ( I, J,2)*FMW 
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100 CALL ASSEF(NEf IK»ELF,FMECH) 

54 IF(N0FT2 .EQ. 0) GO TQ 55 
DO 200 I=1,N0FT2 
NSTAT=NSTF2( I » 

NEND = NELF2 (I ) 

FMV=AMPFV*RT02V( I J 
FMW=AMPFW*RT02W( I ) 

DO 201 J = 1 ,8 

201 ELF( J J = FM2(J , 1 )*FMV+FM 2( J i 2) *FMW 
DO 202 NN=1,NEN0 
NE=(NSTAT-1)+NN 

IF(NE .GT. IK) NE=NE-IK 

202 CALL ASSEFINE , IK,ELF,FMECH) 

2C0 ■ CONTINUE 

55 IF(N0FT3 .EQ. 0) GO TO 90 
DO 300 I=1,N0FT3 

PIE=3. 14155265 
NSTAT=NSTF3( I ) 

NEND=NELF3 (I ) 

P IEP=P lE/NENO 
FMV=AMPFV*RT03V( I ) 

FMW=AMPFW*RT03W( I ) 

FMH1=0.0 

FMV1=0.0 

DO 301 NN=1,NEN0 

NE=(NSTAT-1)+NN 

IF(NE .GT. IK) NE=NE-IK 

X=PIEP*NN 

FMW2=S IN(X )*FMW 

FMV2=SIN( X)*FMV 

AFSW=( FMW1+FMW2) /2. 

BFSW=(FMW2-FMW1) 

AFSV=( FMV1+FMV2) /2. 

6FSV={ FMV2-FMV1) 

FMW1=F MW2 
FMV1=FMV2 
DO 302 J=l,8 

302 ELF( J) =FM2 (J, 1 )*AFSV + FM2( J ,2 ) *AFSW *FM3( J, 1 )*BFSV + FM3( J t 2)*BFSW 
301 CALL ASSEFINE , IK, ELF, FMECH) 

300 CONTINUE 

90 IFINBCOND .EQ. 0) RETURN 
DO 91 I=1,NBC0ND 
JT4=N0DEB( I)*4 
FMECH(JT4-3)=0.0 

IFINBCin.EQ.l .OR. NBC(I).EQ.2) F MECH ( JT4-1 ) = 0.0 
IF(NBC(I).EQ.2 .OR. NBC(I).EQ.3) FMECHIJT4-2 )=0.0 

91 CONTINUE 

56 RETURN 
END 


SUBROUTINE M I NV( A, N, DE T ,L , M) 

C INVERT MATRIX A 

DIMENSION All) , LID, Mil) 

DOUBLE PRECISION A , DET , BI GA, HOLD 

MINV 053 

SEARCH FOR LARGEST ELEMENT MINV 054 
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C 


MINV 055 


DET=1, 0 



NK = -N 

MINV 

057 


DO 80 K = 1 , N 

MINV 

058 


NK=NK+N 

MINV 

059 


L(K )=K 

MINV 

060 


Ml K)=K 

MINV 

061 


KK = NK +K 

MINV 

062 


BIGA=A(KK) 

MINV 

063 


00 20 J=K,N 

M INV 

064 


IZ=N*( J-1 ) 

MINV 

065 


DO 20 I=K,N 

MINV 

066 


IJ=IZ + I 

MINV 

067 

1 

I FIDABS(BIGA) -CABS ( A( IJ)» 115,20,20 



15 

8IGA=A( IJ) 

MINV 

069 


L(K)=I 

MINV 

070 


M(K)=J 

MINV 

071 

20 

CONTINUE 

MINV 

072 



MINV 

073 


INTERCHANGE ROWS 

MINV 

074 



M INV 

075 


J=L (K) 

MINV 

076 


IF(J-K) 35,35,25 

MINV 

077 

25 

KI=K-N 

MINV 

078 


CO 30 I=1,N 

MINV 

C79 


KI=KI+N 

MINV 

080 


F0LD=-A (KI 1 

MINV 

081 


JI=KI-K4-J 

MINV 

C82 


A(KI)=A(JI 1 

M INV 

083 

30 

AIJIl =H0L0 

MINV 

084 



M INV 

085 


INTERCHANGE COLUMNS 

MINV 

086 



MINV 

C87 

35 

I=M(K) 

MINV 

088 


IF( l-K) 45,45, 38 

MINV 

089 

38 

JP = N*I I-l) 

M INV 

090 


DO 40 J=1,N 

M INV 

091 


JK=NK+J 

MINV 

092 


JI =JP + J 

MINV 

093 


H0LD=-A(JK) 

MINV 

094 


A( JK)=A(JI ) 

MINV 

095 

40 

A(JI) =H0L0 

M INV 

096 



MINV 

097 


DIVIDE CCLUMN BY MINUS PIVOT (VALUE OF PIVOT ELI 

EMENT IS MINV 

098 


CONTAINED IN BIGA) 

MINV 

099 



MINV 

100 

45 

IFIBIGA) 48,46,48 

M INV 

101 

46 

DET=0.0 




RETURN 

MINV 

103 

48 

DO 55 I=1,N 

MINV 

104 


IF(I-K) 50,55, 5C 

MINV 

105 

50 

IK=NK+I 

MINV 

106 


Al IK)=AI IK) /(-BIGA) 

MINV 

107 

55 

CONTINUE 

MINV 

108 



MINV 

109 


REDUCE MATRIX 

MINV 

110 



MINV 

111 


DO 65 I=1,N 

MINV 

112 


IK = NK + I 

MINV 

113 


HOLD=A( IK) 

MINV 

MOl 


77 


nan onn non non 



IJ= I-N 

MINV 

114 


DO 65 J=1,N 

MINV 

115 


IJ=IJ+N 

MINV 

116 


IF(I-KJ 60,65, 60 

MINV 

117 

60 

IF(J-K) 62,65,62 

MINV 

118 

62 

KJ= IJ-I+K 

MINV 

119 


A(IJ)=HCLD*A(K J)+A(IJ) 

MINV 

M02 

65 

CONTINUE 

MINV 

121 



MINV 

122 


DIVIDE RCW BY PIVOT 

MINV 

123 



MINV 

124 


KJ=K-N 

MINV 

12 5 


DO 75 J=1,N 

MINV 

126 


KJ=KJ+N 

MINV 

127 


IF(J-K) 70,75,70 

MINV 

128 

70 

A(KJ)=A(KJ) /BIGA 

MINV 

129 

75 

CONTINUE 

MINV 

130 



MINV 

131 


PRODUCT OF PIVOTS 

MINV 

132 



MINV 

133 


DET=DET#BIGA 

MINV 

135 


REPLACE PIVOT BY RECIPROCAL 

MINV 

136 



MINV 

137 


A(KK)=1.0/BIGA 

MINV 

138 

80 

CONTINUE 

MINV 

139 



M INV 

140 


FINAL ROW ANC COLUMN INTERCHANGE 

MINV 

141 



MINV 

142 


K=N 

MINV 

143 

100 

K=(K-1 ) 

MINV 

144 


IF(K) 150,150,105 

MINV 

145 

105 

I=L(K ) 

MINV 

146 


IF(I-K1 120,120,108 

MINV 

147 

108 

JQ=N*( K-1) 

MINV 

148 


JR=N*( I-l ) 

MINV 

149 


DO 110 J=1 ,N 

MINV 

150 


JK=JQ+J 

MINV 

151 


HOLI>A( JK) 

MINV 

152 


JI=JR+J 

MINV 

153 


A(JK)=-A(Jl) 

MINV 

154 

110 

A(JI) =HDLD 

MINV 

155 

120 

J=M(K) 

MINV 

156 


IF(J-K) 100,100,125 

MINV 

157 

125 

KI =K-N 

MINV 

158 


DO 130 1=1, N 

MINV 

159 


KI=KI+N 

MINV 

160 


HOLD=A( KI ) 

MINV 

161 


JI=KI-K+J 

MINV 

162 


A( KI)=-A(JI ) 

MINV 

163 

130 

A(JI> =HOLD 

MINV 

164 


GO TO 100 

MINV 

165 

150 

RETURN 

MINV 

166 


END 


SUBROUTINE OMULT ( SQVCT ,RWVCT , NCOL, NFOWS t ACC, KROW, NDEX, NIRREG) 
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C TO FIND ACC OF ( SQVCT ) ♦ (R W VCT) = ( ACC ) 

DIMENSION SQVCT(l) ,RWVCT(1 ) , NCOL ( 1 ) , ACC ( 1 ) , KROWdl ,NDE X( 1 ) 

REAL*8 SQVCT,RWVCT,SUM,ACC 

INDEX=0 

NROWM=NROWS-1 

IF (NIRREG .GT. 0) GO TO 200 
C HIGH SPEED PRCDUCT FOR REGULAR MATRICES 

DO 100 NN=1,NRGWM 
SUN=0.0 
I P1=NN+1 
KST=NCOL(NN) 

INDEX= INDEX•^NN-KST 
DO 101 KPL=KST,NN 
IJ=INDEX+KPL 

101 SUM=SUM+SQVCT ( IJ)*RWVCT(KPL» 

C NOW FOR THE COLUMN ELEMENTS 

JNDEX= IJ 

DO 102 KPL=I PI ,NROWS 
IF (NN.LT.NCOLI KPL) )G0 TO 100 
JNDEX= JNDEX+KPL-NCOL(KPU 

102 SUM=SUM+SQVCT ( JNDEXI+RWVCT (KPU 
100 ACC(NNI=ACC(NN)+SUM 

C NOW FOR THE LAST ROW 

104 KAOD=NCOL( NROWS) 

SUM=0.0 

INDEX= INDEX+NROWS-KADD 
DO 103 KPL=KADD, NROWS 
IJ=INDEX+KPL 

103 SUM=SUM+SQVCT (IJ)*RWVCT(KPL) 

ACC( NROWS) =ACC (NROWS )♦ SUM 
RETURN 

C MEDIUM SPEED PRODUCT FOR NIRREG ,L E . NROWS/2 

200 IF (NIRREG .GT. NROWS/2) GO TO 201 
DO 105 NN=1,NR0WM 

IP1«NN+1 

KST=NCOL(NN) 

INCEX= INDEX+NN-KST 
SUM=0. 0 

DO 106 KPL=KST,NN 
IJ=INDEX+KPL 

106 SUM=SUM+SQVCT(I J)*RWVCT(KPL) 

NCK=0 

JNCEX=IJ 

107 DO 108 KPL=IP1, NROWS 

IF(NN .LT. NCOL(KPD) GO TO 109 
JNDEX= JNDEX+KPL-NCCL(KPL) 

108 SUM=SUM+SQVCT( JNDEX) *RWVCT(KPL) 

GO TO 105 

109 NCK=NCK+1 

IF (NCK .GT. NIRREG) GO TO 105 
IF (KPL .GE. KROW(NCK)) GO TO 109 
I P1=KR0W(NCK) 

JNDEX=NDEX(NCK )+NN 
GO TO 107 

105 ACC(NN)=ACC(NN)*SUM 
GO TO 104 

201 DO 503 NN=1,NR0WM 
IP1=NN+1 
K=NCOL(NN) 

INDEX=INDEX+NN-K 
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SUM=0.0 

DO 502 KRX=K,NN 
I J=INDEX+KRX 

502 SUM=SUM+SQVCT ( IJ )»RWVCT(KRX) 
JNDEX=IJ 

DO 504 KRX=IP 1,NR0WS 
K = NCOL (KRX ) 

JNDE X=JNOE X+KRX-K 
IF (NN .LT. K ) GO TO 504 
SUR=SUM+SQVCT (JNDEX) ♦RWVCT (KRX) 
504 CONTINUE 

503 ACC(NN )=ACC(NN)+SUM 
GO. TO 104 

END 


SUBROUTINE QREM(A,AL,R) 

C TO FIND EFFECTIVE STIFFNESS MATRIX CUE TO ELASTIC RESTRAINTS 

DIMENS ION A(8t 8) ,ELR (8, 8) , ELRR( 8, 8) tELRP( 8,8) 

CCPMON /TAPE/ MREAD, MWRIT E.MPUNCH 

COMMON /FG/ I K,NOGA, NF L ,N SFL t NI , I CC L (2 05 ) , NBCOND, N BC ( 4 ) ,N0 DE B( 4 ) 
COMMON /ELFU/ SPR IN ( 2060 ) t FQREF ( 20 5 ) f NORP , NORU ,NRE L( 4) ,REX ( 4) , 
♦NRST(4) ,NREU(4) 

REAL*8 A,AL»FQREF,SPRIN,ELRP 
IF (NORP .EQ, 0) GO TO 1 

READ(MREAD,2) SCTP ,SCRP , ( NREL ( I ) t R EX ( I ), 1=1 1 NORP) 

2 F0RMAT(2E15.6/(4( I5,E15.6) )) 

DC 10 IQ=1 ,NORP 
NE=NREL(IO) 

SL=REX( IQ ) 

X=AL/R/2. 

SX=SL/R 
DO 11 1=1,8 
DC 11 J=1 ,8 
11 ELR(I,J)=0.0 

ELR( 1, 1) = SCTP 

ELR(3,1 )=SCTP*R*(-COS(SX) +COS(X) ) 

ELR( 4, 1) = SL*SCTP*C0S( SX) 

ELR( 5, 1) = SCTP=»SL**2«SIN(SX ) 

ELR(6,1)=SCTP*SL**3*SIN(SX) 

ELR( 2, 2) = SCTP 

ELR(3,2 ) = SCTP*R*S IN(SX ) 

ELR( 4,2)=-SCTP*SL*SIN( SX) 

ELR(5,2)=SCTP*SL**2*C0S(SXI 

ELR(6,2)=SCTP*SL**3^C0S(SX) 

ELR( 3,3)=SCTP*R**2*( 1.-2.* COS (SX)*CCS(X)+C0S(X)*»2 )+SCRP 
ELR(4,3) = -SCTP*R<'SL*( l.-COS( SX)*COS(X) )-SCRP*SL/R 
ELR( 5,3) = SCTP*R*SL»*2*SIN( SX)*COS(X J+2 .♦SL*SCRP 
ELR( 6, 3}=SCTP«R*SL**3* SIN( SX)*COS( X )+3 .*SL**2* SCRP 
ELR(4,4)=SCTP*SL**2+SL**2*SCRP/R**2 
ELR( 5,4J=-2.*SL**2*SCRP/R 
ELR(6,4)=-3.=«'SL**3*SCRP/R 
ELR( 5,5)=SL**4+SCTP+4.«SL*«2*SCRP 
ELR(6, 5)= SL**5#SCTP+6.*SCRP*SL**3 
ELR(6,6 ) = SL«*6*SCTP+9. ♦SL**4*SCRP 
ELR( 7,1)=SCTP*SL**2«C0S(SX) 

ELR(8,1 ) = SCTP=»SL**3*C0S(SX ) 
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ELR(7, 2)=-SCTP*SL«*2=<'SIN{ SX) 

ELR(8,2)=-SCTP*SL=«‘*3^SIN(SX) 

ELR( 7, 3)=-R«( l.-CQS( SX)*CQS( X) )*SCTF*SL’«'*2-SL**2*SCRP/ R 

ELR{8, 3) = -R«( l.-COS(SX)*COS( X) H‘SCTP*SL*<'3-SL=«‘*3*SCRP/R 

ELR(7,4) = ( SCTP+SCRP/R<=»2) *SL**3 

ELR( 8, 4)=( SCTP+SCRP/R*«2) ♦SL**4 

ELR(7,5)=-2.*SL«*3*SCRP/R 

ELR(8,5)=-2.*SL**4*SCRP/R 

ELR( 7t6) = -3.*SL«*4*SCRP/R 

ELR{8,6 )=-3.*SL**5*SCRP/R 

ELR( 7,7)=ELR( 8,4) 

ELR(8,7)= ( SCTP+SCRP/R**2) ♦SL+^S 
ELR(8,8) = ( SCTP+SCRP/R=«'*2) *SL**6 
DO 12 1=1,7 
IP 1=1 + 1 
DO 12 J=IP1,8 

12 ELR( I, J)=ELR( J,I ) 

DO 13 1=1,8 

DO 13 J=l,8 
ELRR( I,J)=C.O 
DO 13 K=l,8 

13 ELRRd , J) = ELRR( I , J) + ELR(I ,K)*ACK,J) 

DO 14 1=1,8 

DO 14 J=1 ,8 
ELRP( I , J) = C.O 
DO 14 K=l,8 

14 ELRP( I, J)=ELRP{ I, J)+A(K, n*ELRR(K, J) 

10 CALL ASSEMINE ,IK,ELRP,SPRIN,ICQL,NI) 

1 IFINORU .EC. 0) GO TO 31 

READ(MREAD,3) SCTU , SCRU , ( NRST ( I ) ,NR EU ( I ) , I = 1 , NORU ) 

3 F0RMAT(2E15.6,8I5) 

DO 4 1=1,8 

DO 4 J=l,8 

4 ELR(I,J)=0.0 
X=AL/R/2. 

P2=2.*X**2*SI N(X) +4.*X*C0S (X)-4.»S U(X) 

P3=-2.*X*«3*C0S( X )+6.#X*^2*SIN( X)+ 12.*X*C0S( X) -12 . *S I N (X) 

ELR( 1 ,1 ) = SCTU*AL 
ELR( 2,2) = SCTU*AL 

ELR(3, 1) = SCTU*R*(-R<=2.*SIN(X)+C0S( * )*AL) 

ELR(3,3)=SCTU*R«»2«( AL+COS (X ) ♦♦2 ♦A L-2 . *R«S INI 2 ,*X) ) + SCRU*AL 
ELRI4, 2)=-SCTU^R«*2*(-2.*X*COS(X) + 2.=«‘SIN(X}) 

ELR(4,4)= (SCTU+SCRU/R ♦♦2) ♦AL**3/12,. 

ELRI 5, 2) = SCTU*R**3*P2 
ELRI 5, 4)=-SCRU*AL=»=*3/( 6.*R) 

ELR(5,5) = SCTU*AL^^5/80 .+SCRU*AL**37 3. 

ELRI 6, 1 ) = SCTU«R**4*P3 

ELRI6, 3)=SCTU*R**5*C0S (X) ♦P3+SCRU*AL«<'3/4. 

ELR(6,6) = SCTU*AL**7/448. + 9.*SCRU*AL**5/80. 

ELRI 7, 1) = SCTU*R#*3*P2 

ELRI7, 3) = -SCTU*R»I AL**3/12.-R**3*C0SIX )*P2 )-SCRU»AL**3/I12 .♦R) 
ELRI 7,6) =-3.* SCRU* AL«* 5/1 R*80.) 

ELRI 7, 7)=I SCTU+SCRU/R**2) *AL**5/80i 

ELRI8,2)=-SCTU*R**4*P3 

ELRI 8,4)=ELRI 7,7) 

ELRI8,5)=-SCRU*AL**5/I 40. *R) 

ELRI 8,8) = I SCTU+SCRU/R**2) *AL**7/44e. 

DO 5 1=1,7 
IP1=I + 1 
DO 5 J = IP1 ,8 
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5 ELR(I, JI=ELR(J,I) 

DC 6 1=1,8 

DO 6 J=l,8 
ELRR(I,J)=0.0 
DO 6 K=l,8 

6 ELRRd , J) = ELRRU , J) + ELR(I ,K)*A(K,JJ 
DO 7 1=1,8 

DO 7 J=l,8 
ELRP(I,J)=C.O 
DO 7 K=l,8 

7 ELRP( I ,J) = ELRP(I ,J) + A(K,n*ELRR(K, J) 

DO 20 IQ=1,N0RU 

NSTAT=NRST (IQ) 

NEND=NREU( IQ) 

DO 21 NN=1,NEND 
NE=(NSTAT-1)+NN 
IF(NE .GT, IK) NE=NE-IK 
21 CALL ASSEM(NE, IK,ELRP,SPRIN,ICOL,N^I) 

20 CONTINUE 

31 IF(NBCOND .EQ« 0) RETURN 

DO 91 I=1,NBC0ND 
JTA=NODEB( I)«4 
JTAM3=JTA-2 
JT4M2=JT4-2 
JT4M1=JTA-1 

CALL ERC( JT4M3,SPR IN,NI ,ICOLI 

IF (NBC(I) • EO.l .OR. NBCm.EQ.2) CALL ERC ( JT4M 1, SPRIN , NI , I COL) 
IF (NBC ( I ) . EQ. 2 .OR. NBC(I).EQ.3) CALL ERC ( JT4M2, S PR IN, NI , I COL) 
91 CONTINUE 

RETURN 
END 


SUBROUTINE SOLV ( ST IFM , G,S OL, NCOL , K P CW, NOEX , NRO WS, N IRRE G) 
C SOLVE (LL*) (SOL) = (FORCE) FOR DISPLACEMENTS (SOL) 

DIMENSION STIFM(1),G( 1) ,S0L(1), NCOL ( 1) ,KRO W( 1 ) ,NDE X( 1 ) 
REALMS STIFM,G,SOL,SUM,SU 

C INTERMEDIATE SOLUTION USING THE LOWER TRIANGLE 

100 INDEX=0 
SOL(l) =G(1 ) 

DO 104 I = 2,NR0WS 
IM1 = I-1 
SUM=0.0 
K=NCOL( I) 

INDEX=INDEX+I-K 
IF (IMl-K) 103,101,101 

101 DO 102 J=K,IM1 
IJ=INDEX+J 
SU=SOL( J) 

102 SUM=SUM+ST IFM( IJ)*SU 

103 II=INDEX+I 

104 SOLd )= G( I )-SUM 
SOL CONTAINS THE INTERMEDIATE SOLUTICN 
COMPLETE THE SOLUTION USING THE UPPER TRIANGLE 
SOL (NROWS) = SOL(NROWS)/STIFM(I I ) 

INDEX=INDEX-NROWS+NCOL( NROWS) 

IF (NIRREG .GT. 0) GO TO 111 
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CO 109 KK=2 ,NROWS 

I=NR0WS+1-KK 

IP1 = I + 1 

SUM =0.0 

JNDEX=INDEX+I 

DO 107 J=IP1,NR0WS 

K=NCOL( J) 

IF (I-K) 108,106,106 

106 JNOEX = JNDEX+J-K 
SU=S0L( JJ 

107 SUM=SUM+STI FM( JNDEX)«SU 

108 II=INDEX+I 

SOL(I)= SOtm/STIFM (in-SUM 

109 INDEX= INDEX-I+NCOL( I) 

RETURN 

111 IF (NIRREG-NROWS /2) 116,116,112 

C TOO MANY IRREGULAR ROWS FOR ACCELERATED SOLUTION 

112 DO 115 KK=2 ,NROWS 
I=NR0WS + 1-KK 
IP1=I+1 
JNDEX=INDEX+I 
SUM=0.0 
JNDEX=INDEX+I 

DO 114 J=IP1,NRCWS 
K=NCOL( J) 

JNDEX=JNDEX+J-K 
IF (I-K) 114,113,113 
113 SU=SOL(J) 

SUM=SUM+ST IFM( JNDEXJ^SU 

114 CONTINUE 
II=INOEX+I 

SOL(I)= SOL (I) /STIFM( in -SUM 

115 INDEX=INDEX-I+NCOL( I) 

RETURN 

C ACCELERATED SOLUTION FOR CASE WITH IRREGULAR ROWS 

116 CO 125 KK=2,NR0WS 
I = NR0WS+1-KK 
IP 1=1 + 1 
SUM=0.0 
KCK=0 

JNOEX=INDEX+I 

117 CO 119 J=IP 1,NR0WS 
K=NCOL( J) 

IF (I-K) 120,116,118 

118 JNDEX=JNDEX+J-K 
SU=SOL( J) 

119 SUM=SUM+STI FM( JNDEX)*SU 
GO TO 124 

120 NCK=NCK+1 

IF (NIRREG-NCK) 124, 121,121 

121 IP1=KR0W(NCK) 

IF (I-NCOL( IPl) ) 120,122,122 

122 IF (IPl-J) 120, 123, 123 

123 JNDEX=NOEX(NCK)+I 
GO TO 117 

124 II=INDEX+I 

SOL(I)= SOL (I )/STIFM( II ) -SUM 

125 INDEX=INDEX-I+NCOL( I) 

RETURN 
END 
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SUBROUTINE STRESS 

TO EVALUATE GENERALIZED NODAL LOAD VECTOR DUE TO LARGE DEFLECTION 
AND ELASTIC-PLASTIC STRAIN 

DIMENSION ELFP(8) ,8EPS (3) , CEPS ( 3 , 3 ) ,BINPW ( 3 ) , B IMPW( 3 ) ,HWB( 3,3) , 
♦PN( 8) ,PM( 8) ,HNL(8) 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI, IC0L(205) ,NBCOND,NBC(4) ,N0DEBI4) 
COMMON /HM/ R,B,H, DENS, YOUNG, DS,C5,C6,ASFL(6, 5), GZETA(6),SNO(5) 
COMMON /VQ/ FLVA( 205) ,DISP(205) ,DE:LC(205) ,SNS(50,3,6,5), 

♦ BINP(50,3) , BIMP(50, 3) 

COMMON /BA/ BEP(3,3,8i ,AXG(3),AWG(3) 

REAL *8 BEP,FLVA,ELFP,DISP,OELD 
DO 502 IR=1, IK 
DO 503 J=1,N0GA 
BINP{ IR, J )=0. 

BIMP( IR, J) =0. 

202 DO 402 1=1,3 
BEPS ( I )=0. 

DC 402 K=1 ,8 
INDE X=(IR-1)*4+K 

402 BEPS ( I )=BEPS( I ) + BEP( J, I ,K J ♦DELDI INDEX) 

CEPSIJ,2)=0.0 

DO 403 K=l,8 
INCEX=( IR-1)*4+K 

403 CEPS( J,2)=CEPS( J,2) + BEP( J ,2,K)*DISP (INDEX) 

205 FARE=BEPS ( 1 ) +C EPS ( J, 2 ) *3EP S< 2 )-BEP S ( 2) **2/ 2. 

FCUR=BEPS(3) 

DO 151 K=1,NFL 
8FNP=0. 

BEPX=FARE+GZETA( K)*FCUR 

IFIDS.GT, 0,0) RFACTR=1.<-(C6*ABSCBEPX) )**C5 
DO 35 L=1 , NSFL 

SNS( IR,J,K ,L) =SNS( IR,J,K, D+YGUNG* E EPX 
IF(DS.EQ. 0.0) GO TO 255 
IF(SNS(IR, J,K,L)-SNO(L) )30,301,91 

91 SNY=SNO(L ) ♦RFACTR 

IF(SNS (IR, J,K,L)-SNY)301, 301,20 
2C SNS( IR ,J, K ,L) =SNY 

GO TO 301 

30 I F(SNS( IR ,J,K ,L)+SNO(L ) )9 2,301, 301 

92 SNY=SNO(L) ♦RFACTR 

I FIS NS (IR,J,K,L)+SNY)40, 30 1,301 
40 SNS( IR,J,K,L) =-SNY 

GO TO 301 

255 IFISNSdR, J,K,L)-SNO(D) 18,301,17 

17 SNS( IR,J,K,L)=SNO(L) 

GO TO 301 

18 IFISNSdR, J,K,L)+SNO(L) ) 19, 301, 3B1 

19 SNSI IR,J,K,L) =-SNO(L) 

301 BFNP=BFNP + SNS( IR , J ,K , L ) *A SFL ( K, L ) 

35 CONTINUE 

BINPI IR,J)=BINP( IR,J)+8FNP 

BIMP( IR, J )=BIMP( IR,J )+BFNP^GZETA(K) 

151 CONTINUE 

5C3 CONTINUE 

1C7 DO 101 J=1,N0GA 84 


BINPW( J ) = B INP( IR,J)*AWG(J) 

BIMPW( J)=eiMP( IR, J )#AWG(J ) 

HWB( J ,2)=CEPS( J,2) *AWG ( J) *RINP( IR, J) 

101 CONTINUE 

DC 102 1 = 1 ,8 
PN(I )=0. 

PM (I )=0. 

HNL( I ) =0.0 
DO 102 J=1,N0GA 

PN(I ) = PN( I )+BEP(J, 1, I)*BINPW(J) 

PM(I } = PM(I ) + BEP( J,3,I)«BIMPW(J) 

102 HNL( I)=HNL(I)+BEP( J,2, I)*HWB( J,2) 

200 DO 105 1 = 1 ,8 

1C5 ELFP( n=PN{I ) + PM( I ) + HNL(I ) 

502 CALL ASSEF( IR , IK, ELFP, FLVA) 

RETURN 

END 


C 


80 

81 

3 


91 

9C 


2 


4 


SUBROUTINE TSTEPI AMASS , EL K , I S IZ E ,K RGW , NDEX , NI RREG , DEL T AT) 

TO FIND DELTAT IF IT IS NOT SPECIFIED 

DIMENSION AMASS( 1) ,STIFK( 2060) , E LK ( E , 8 ) , TR I AL ( 205 ) ,VMULT(205), 

♦ VECTR (205 ) ,KR0W(1 ), NDEX (1) 

COMMON /FG/ IK,NOGA,NFL,NSFL,NI , ICGL(205) , NBCONO, N EC (4 ) ,N0DEB( 4) 
COMMON /HM/ R, B,H, DENS , YOUN G, DS , C 5 , C 6 , A SFL ( 6 , 5) ,GZETA(6) ,SN0(5) 
COMMON /TAPE/ MREAD, MWR IT E ,MPUNCH 

REAL *8 AMASS, S TIE K,ELK,VM ULT,BONE ,EPSLN, TRIAL, VECTR, BOLD, BN EW, 
♦8KTH, FREQ 

DO 80 L=1 , ISI ZE 
STIFK(L) = 0.0 
DO 81 IR=1 ,IK 

CALL ASSEM(IR,IK,ELK,STIFK,ICCL,NI) 

DO 3 K=1,M 
TRIAL( K) = l .0 

IF(NBCOND .EQ. 0) GO TO 90 
DO 91 I=1,NBC0ND 
JT4=N0DEB( I)^4 


JT4M3=JT4-3 


JT4M2=JT4-2 

JT4M1=JT4-1 

CALL ERC( JT4M3,STIFK,NI ,ICOL) 
TRIAL! JT4M3)=0.0 

IF(NBC(I).EQ.l .OR. NBC{I).EQ.2) 

IF (NBC { I ) . EQ.2 .OR. NBC(I).EQ.3) 

IF(NBC(I).EQ.l .OR. NBC(I).EQ.2) 

IF(N8C(I).EQ.2 .OR. NBC(I).EQ.3) 

CONTINUE 

MRANK=NI 

B0NE=0. 

EPSLN=1.0D-07 

B0LD=1.0 


CALL ERC( JT4M1,STIFK,NI, ICOL) 
CALL ERC( JT4M2,STIFK,NI ,ICOL) 
TB1AL(JT4M1)=0.0 
TRIAL! JT4M2) = 0.0 


DO 14 IKK=1,4 
DO 12 ILL=1,50 
DO 4 I=1,MRANK 
VMULT ( I ) = 0.0 

CALL OMULT(STIFK,TRI AL , ICOL, N I, VMULT, KROK, NDEX, N I RREG) 
CALL SOL V ( AMASS, VMULT, VECTR, ICOL, KRCW, NDEX, NI , NIRREG) 


65 


00 ■«J o^ o> 


BNEW=-1. 

• DO 6 K=1,MRANK 
IF(BNEW-DAES(VECTR(K) ) )60,60,6 

C BNEW=DABS( VECTR( KJ ) 

CONTINUE 
DO 7 K=l, MRANK 

IF(BNEW-DABS( VECTR(K) I 17,8,7 
CONTINUE 
MRGW=K 

BNEW=VECTR(K) 

DO 9 K = l, MRANK 

9 TRIAL! K) = VECTR(K)/ BNEW 
IF(DABS(BNEW/B0LD-1.0)-EPSLNJ15,15 ,10 

C ITERATION 

10 BKTH=BOLD 
BOLD=BNEW 

12 CONTINUE 

EPSLN=EPSLN*10. 
lA CONTINUE 

C NOT CONVERGING AFTER IL*IK ITERATIONS 

EPSLN=1.0 
BONE=BNEW 
GO TO 32 

C EIGEN VALUE FOUND 

15 BGNE=BNEW 

32 WRITE! MWRI TE, 24) ! TR I AL ! J ) t J = 1 , N I ) 

2A FORMAT!/,' EIGEN VECTOR OF HIGHEST MODE ' , / , 21X , • V * , 19X , ' W ' , 17 X 

♦ ,*PSI',17X, 'CHI',/, !11X,4D20.8)) 

FREQ=DSQRT!YOUNG*BONE/DENS ) 

FACTCL=0,8 

DELTAT=FACTCL*2./FREQ 

WRITE!MWRITE,25)FREQ 

25 FORMAT!/,' FIGHEST NATURAL FREQUENCY ! RAD/SEC) =' ,E 17.8 ) 

RETURN 

END 
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5.2 JET 3B: Uniform Thickness Circular Rini 


Houbolt ' s Timewise Operator 


The JET 3B program consists of the following main programs and sub- 
routines : 


1. JET 3B 

2. ASSEM 

3. ASSEF 

4. I DENT 

5 . IMPULS 

6. Print 

7 . JET 3B 

8 . ASSEM 

9. ASSEF 

10. IDENT 

11. IMPULS 

12. PRINT 

13. ELfffP 

14 . LOADEQ 

15. LOADFT 

16. QREM 

17. STRESS 

18. ERC 

19 . FAC 

20. FICOL 

21. MINV 

22. OMULT 

23. SOLV 


MAIN PROGRAM 


MAIN PROGRAM 



Note that the subroutines in items 13 through 23 are common to each of the 
two groups of "control programs". 

A complete FORTRAN IV listing of JET 3B is given below in the above order. 
The number of memory locations required is approximately 160,000 bytes. 
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JFT3B MAIN PRuG^AM F(.iR UNIFORM THICKNESS CIRCULAR RING 
JET30 HOUHCjLT OPFRATUR 
^ ^ ^ PARTIAL RING ^ 

OIMFNS ION A (o, 3 ) , AiMASSI 2060 ) , HM A S S( 2 CoO ) t Y ( 5 1 ) , Z ( 5 1 ) , TX G { 6 ) ,T RG ( 6) 
« ,ES (6 ) ,GFL ( 6) , EPS (5 ), S IG(5 ) , I NUH ( 20 5 ) , K ROrt ( 3) ,NiJEX( 8) 

DIMENSION ODELDI 205) ,UI SUM(2US) ,01 S 1205) f DISMl (205 ) , DI SM2 { 205) , 

♦ FLR (205 ) , FLNI205) , FLVM( 205 ),STlFK(20t0) 

COMMON /TAPE/ MREAD, HWRIT E ,MPUNCH 

COMMON /FG/ IK,,NOGA,NFL,NSFL,NI , ICGL(205) , NBCOND.NBC (4) ,NiJ0EB{4) 
COMMON /HM/ R, 3,H, DENS, YOON G, OS, C 5 , C 6 , ASFL ( 6 , 5 ) ,GZE TA ( 6 ) , SNO ( 5) 
COMMON /VG/ FLVA(205) ,DISP(2O5),OELC{2O5),SNS(50,3,6,5), 
*8INP(50,3),BIMP(50,3),SNP(5C,3,6,5) 

COMMON /EJA/ afP(3,3,0) ,AXG(3),AwG(3) 

COMMON /SC/ MCRI T,CRITS,bIG, IBIG,BT IME ,ISURF 

COMMON /FORCE/ FMECH(205) , T 1 , AMP 1 F V , AM PIF ►■) , T2 , AMP 2F V , A MP2F W , 
^AMPFV,AMPFW ,NQFT1 ,NCFT2 ,N0FT3 , JELEM (4 ) , ETA (4 ) ,RTQV (4) , RTGWI 4) , 

♦ NSTF2 (4 ) ,NELF2 ( 4 ) , R TH2V ( 4) , RT02W( , NST F3( 4 ) ,NE LF 3 ( 4) , R T03 V ( 4 ) , 

♦ RT03W{4) ,FM1(4 ,3,2) ,FM2 ( 3 , 2 ) , FM3 ( 3 , 2 ) , S LOPE V , SLOPE W 

COMMON /ELF!)/ SPR I N ( 20 60) , NO RP , NO R L ,NREL ( 4 ) , RE X (4 ) , 

♦NRSTI4) ,NREU(4 ) 

MREAD=5 

MWRITE=6 

MPUNCH=7 

READ (MREAD , 1 ) R,B,H,OENS,F XANG, I K, NCGA ,NFL ,NSF L,MM,M1 , M2 
READ (MREAD, 2 ) DEL T AT , T HET A ,CR I T S ,D S , P, (EPS (L ) , SI G ( L) ,L-L,NSFL) 

1 F0RMAT(5E15. 6/715) 

2 F0RMAT(5E15.6/(4E15.6) ) 

READ (MREAD ,3 ) (AXG(K) ,K=1,N0GA) 

READ(MREAD,3) (AWG(K) ,K=1,NCGA) 

READ (MREAD, 3) (TXG( K) ,K=1,NFL ) 

READ(MREA0,3) (TWG ( K) , K=1 , NFL J 

3 FORMAT (4F 15. 10) 

REAO(MREAO,4) N8C0ND, ( NBG ( I),NOOE« (1), I = 1,N8CUN(J) 

4 F0RMAT(915) 

REA0(MREA0,9) NOR, NORP ,NORU 

9 FQRMAT(3I5) 

CALL IDEM (EXANG ,NQR) 

PI E=3. 14159265 
IKP1 = IK+1 
NI=IKP 1*4 

THET A^THET A*P IE/ 18 0. 

BX=P IE*EXANG/ ISO. 

BL=3X<'R 

AL=BL/ IK 

AX=BX/I K 

DO 70 K=1,NFL 

GFL(K)=H*B4=TWG(K )/2. 

70 GZETA(K) = H=!-TXG(K)/2. 

ES(1) = SIG( 1)/ EPS (1 ) 

YOUNG = ES( I ) 

IF(NSFL-l ) 77, 77, 76 

76 DO 78 L=2 , NSFL 

78 E S(L) = ( SI G ID-SI G(L-l) ) / ( E PS ( L ) - EP S (L-1 ) ) 

77 ES (NSFL+1)=0 .0 
DO 79 L=1 , NSFL 

79 SNO(L )=ES( 1)*EPS(L) 

DO 71 K=1 ,NFL 

DO 71 L=1 , NSFL 

71 ASFL(K,L) = GFL(K)=«'(ES(L)-£Sa+l))/ES(l) 

DO 72 K=1,NQGA 
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AXG(K ) =AXG (K) *AL/?. 

72 AWG(K) =AWG (K) ^AL/2. 

DO 15 1=1,8 

15 ICGL(I)=1 

DO 16 1 = 3 , IKPl 
IKA=l«<f 
IK3=IK4-1 
IK2=IK4-2 
IK 1= IKA-3 
J J = I I-l )=>=4-3 
I COL ( IK1) = JJ 
ICGL ( IK2)=JJ 
ICOL{IK3) = JJ 
ICaL(IK4)=JJ 

16 CONTINUE 

I NUM( 1)=1 
DO 99 1=2, NI 

99 INUMd ) = I-ICOL(I-l )+INUM( I-l) 

DO 990 1 = 1 ,NI 

990 INUMI I )=INUM{ I )-ICOL{ I J 
NI RREG=0 
INDc X=0 
rSET = i 

DO 116 1 = 1 ,NI 
L=ICOL(I) 

IF (ICOU I )-IS£T)117, 116,119 
119 IS£T=ICOL(I) 

GO TO 116 

117 NIRREG=NIRREG+1 

IF (NI RREG-NI /2) 71 1 ,711 ,90 
711 KKOW (NIRR£G)= I 

NDEX( NI RREG)= INDEX 
116 INOEX=INDEX+I-L 
90 CALL F ICOL (NI ,NI , L, ICOU 
ISIZE=L 

WRITE(MWRITE, 17) L 

17 FORMAT!/,* SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX = * , I 5) 

CALL ELMPP(AL,A,AMASS,STIFK, ISIZE) 

DO 36 L=1 , IS I ZE 
36 8MASS( L) =ARA5S (L) 

DO 23 L=l, IS I ZE 
23 SPRIN(U = 0.0 

IF (NQR .EQ. 0) GO TO 2 0 
CALL QREM(A,AL,R) 

20 IF (DS. EG. 0.0) GO TO 21 
C5=l./P 

C6 = 1./DS/DELTAT 

21 DTSQ = DELTAT=!=^2 
C2=1./(2.«=DELTAT«*2) 

HHALF=H/2 . 

MCRI T=0 

8IG= 10. *-(-10 ) 

I 8IG=0 
I T=0 

T IME = 0 .0 
DO 75 1=1, IKPl 
ANG=( I-l ) *AX+THhTA 
Y ( I ) =S IN( ANG) -R 
75 Z ( I ) =COS( ANG) *R 

CAl.L IMPULSIDELl AT, AL) 
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Rt AJ ( MREAD ,5) T3FGIN , TF If^AL, AMPi FV , AMPIFW 
5 FORMAT (401 5-6 ) 

IFdFIMAL .L-Q. 0.0) WR I TE ( MwR I T H , 4 8 ) 

48 Format ('0 there is ro time depende/mt force oistrihutiun during 

♦ TH IS RUN ' ) 

IF(TFINAL .Eg, 0.0) go to 49 

CALL LOADEOt A, R, AL, TBEGIN» TF INAL) 

49 APDEN=0.0 

CALL PR1NT(IT,T1 ME , HHALF , AX , Y ,Z , THET A , AP DEN , S PR I N, 8MASS,C2 » 

♦ NQRtKROWjNOEX i N IRREG, Cl NETO ) 

NREADF =0 
T l^TBEGIN 
NLGAD=2 
DO 34 1 = 1, NI 

34 FMECH(I) = 0.0 

I F (T3EGIN . GT .0.0 .OR. T F I N AL . EQ . 0 . 0 ) GO TO 30 

NLOAD= 1 

CALL LOADFT (TIME, NREADF) 

CALL F AC ( AMASS , I COL, KRGW, NCEX , lOET , MWRITE, N I , N IRREG, INUM) 

CALL SGLV( AMASS, FMECH,UDELD,1C0L,KRCW,NDFX,NI ,NIRREG) 

GO TO 31 

30 DO 32 1=1, NI 

32 DD£LD(I) = O.G 

31 DO 33 1=1 ,NI 

33 OISUM( I )=2.*OTSQ*DOELD(I) + 6.*DELO(I j+G.’i'UISPd ) 

MLOAD=NLOAD 

00 35 1=1 ,NI 
FLR( I )=FMECH( I ) 

35 FLVM(I)=0.0 

CALL OMULT ( BM A SS , 0 1 SUM , IC CL, N I ,F LV M ,KROW , N DEX , MRREG) 
on 37 L = 1 , IS I ZE 

37 AMASS ( L)=6.*BMASS (L) 4-OTSQ* (ST I FK ( L ) 4SPR I N ( L ) ) 

CALL FAC( AMASS ,ICOL,KRUW,NDEX, I0ET,NWRITE ,NI ,N IRREG, I NUM) 

ITT=1 

T IME = I TT^OELTAT 
NLGA0=2 
DO 60 1=1 , M 
FLVA( I ) = 0. C 

60 FMECH( I ) = 0 .0 

IF( TIME.LT.TBEGI N .OR, T I ME. GT .T F 1 N /:L ) GO TO 38 
NLOAD=l 

CALL LGADFT(T (ME, NREADF) 

33 DO 39 1 = 1, NI 

39 FLVM( I )=DTSQ^FMECH( I ) + FLVM( I ) 

CALL SCLVI AMASS, FLVM.OIS, I COL , KROW , NDEX , N I , N I R REG ) 

DO 61 1=1, NI 

DELDl I ) = DIS{ I )-DISP( I ) 

61 DI SMI ( I )=DTSQ*ODELD{ I ) -DI S ( I ) +2 . *D I SP { I ) 

DO 100 L= 1,1 SIZE 

ICO AMASS ( L) = 2 .=!=3MASS ( L ) +DT SQ * ( ST I FK ( L ) ♦SPKIN( L ) ) 

CALL FAC( AMASS, ICOL, KROW, NDEX, lOET ,NWRITE,NI ,NIRREG, INUM) 
lEIMLCJAO .EQ. 2) GU TO 120 
APD=0. 0 
DO 46 1=1, NI 

46 AP0=APD + FLR( I )"DELO( I ) 

APD£N=APDEN+APO 
120 ITT=ITT + 1 

T I ME= ITT^DELT AT 
45 DO 121 1 = 1, NI 

DISM2 ( I ) = DISM1 ( I ) 


90 



0 ISMK I ) = 0 ISP ( I ) 

DISP( n = DI S( I i 
FLR( I ) =FMECH( I ) 

FLN( n=FLVA( I J 
FLVMI )=0.0 
FMECHI I ) = C.O 
FLVM (I ) = 0 .0 

121 01 SUM( I ) = 5 .*01 SP( I )-4. *01 SMI ( I ) + DISM2( I ) 

ML0AD=NL0AD 

CALL STRESS 

CALL OMULT I BM ASS , 01 SUM , 1C OL, N I , F LV M ,KROW , N OCX , NIRREG) 

NL0AD=2 

IF (T IME.LT.TBEGIN .OR. T I M E. GT . T F I N AL ) GO TO 122 
NL0AD=1 

CALL LQADFTIT IME,NREADF) 

122 DO 123 1=1, NI 

123 FLVMI I )=( FMECHd J-(2.*FLVA(I )-FLM( I n ) *OTS Q+F L VM ( I ) 

IFINBCOND .EQ . 0) GO TO 124 

00 125 I=1,NBCGND 
JT4=N00EB( I)*4 
FLVMI JT4-3 )=0.0 

IFINBC m .EQ. 1 .OR. NBCin.EQ.2) FL VM I JT4- 1 ) =0 .0 
IFINBCin .EQ.2 .OR. NBCII).EQ.3) F L \,MI JT4- 2) =0.0 

125 CONTINUE 

124 CALL SQLVI AMASS, FLVM, 0 IS, ICOL,KRGW,hOEX,Nl ,NIRPEG) 

DO 126 I=1,NI 

126 DELDI I )=0I SlI )-OISPI I ) 

IFIMLOAO .EQ. 2) GO TO 41 
APD=0.0 

00 42 I=1,NI 

42 APO=APO«-FLR ( I )*OELDI I ) 

APOEN=APDEN+APC 
41 IT=ITT-1 

T IME= IT*OELTAT 

IFIIT .EQ. 1) CALL PR I NT I I T, T I ME , HH AL F , AX , Y, Z , THET A, AP DEN , SPR I N , 
*BMASS ,C 2, NQR,KROQ, NOE X, NIRREG, CINE TO) 

IFIIT-Ml) 130,1^0,150 
140 M1=M1+M2 

CALL PR I NT I I T, TIME, HHALF,AX,Y ,Z , THE T A , A PDEN , SPR I N,BMASS,C2 , 
*NQR,KROW,NOEX, NIRREG, CINETG ) 

130 IFIIT-MM) 120,170,150 
170 IFIIBIG) o2,150,62 
62 IFII5URF-2) 64,65,65 

64 KRITEIMWRITE, 66) B I G , I B IG , BT I ME 

66 FORMAT I///,* LARGEST COMPUTED STRAIN =',E15.6, • OCCURS AT THE 

*INN£R SURFACE MIOSPAN OF ELEMENT =',I3,* AT TIME I S EC . ) =',E15.6) 

GO TO 150 

65 WRITEI MwR I TE ,67) BIG , I B IG , BT I ME 

67 FORMATI///,' LARGEST COMPUTED STRAIN =',E15.6,' OCCURS AT THE 

*GUTER SURFACE MIDSPAN OF ELEMENT =',I3,' AT TIME ISCC.) =',E15.6) 

150 CALL EXIT 
ENC 
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SUBRlJUT INF ASSEf'U IR, IK , EL M AS , S T I FM , ICGL,NI ) 
C PARTIAL RING 

D INENS ION ELM AS( 3 , 3) f NN(3 ) ,STIFM( 1) ,ICCJL( I ) 

J1 =I R^4 

NN( 1) =J 1-3 

NN (2 )= Ji-2 

NNI3)=Jl-l 

NN(4)=J1 

J2 = ( IR + 1 )«4 

NN{ 5) =J2-3 

NN (6 ) = J2-2 

NN(7)=J2-1 

NN (8) =J2 

202 DO 402 1= 1 ,3 
M=NN{ I ) 

DO 402 J= 1,8 
N=NN(J) 

IF(M-N)402,403,403 
403 CALL F ICOL (M,N,L, ICOL) 

STIFM(LJ = STIFM(L )+ELMAS (1 , J) 

402 CONTINUE 
RETURN 
END 


SUBROUTINE ASSEFIIR, IK , EL F P, FLV A ) 
C PARTIAL RING ***** 

D I MENS ION NN I 8 ), FLVAI 1 ) ,ELFP( 1) 

J1=IR*4 

NN( l)=Jl-3 

NN {2 ) = Jl-2 

NN(3)=J1-1 

NN (4 J=J1 

121 J2 = ( IR + 1 )=«=4 

NN{ 5) =J2-3 
NN(6 ) = J2-2 
NN(7) =J2-1 
NN (8) = J2 

123 DO 101 1=1,3 
M=NN( I ) 

FLVA(M ) = FLVA( M) + £LFP( I 1 

101 CONTINUE 
RETURN 
END 


SUBROUT INE I D ENT ( EXA NG , NOR ) 

Q 4=**4=* PARTIAL RING ***** 

COMMON /FG/ I K ,NOGA, NF L ,NS FL , NI , I CG L (2 05 ) , NBCUND, N 8C ( 4 ) , NO D£ B( 4 ) 
COMMON /HM/ K , 3 ,H , DENS , YOUNG, DS ,C 5 , C 6 , A SFL ( 6 , 5 ) ,GZETA(6 ) ,SN0(5) 
COMMON /TAPE/ MKE AO, MW R IT E ,MPUNCH 

WRITE ( HWR I TE , 1 ) R , 8 , H , DEN S ,E X ANG , I K ,NOGA, NFL, NSFL 
1 FORMAT (• FT3B^=«=** A SPATIAL FINITE ELEMENT AND HOUBOLT TEMPOR 
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11 


14 

15 

16 

17 

12 

13 

18 


2C 


19 

21 


*AL OPERATOR PROGRAM',/.' USED TO CALCULATE THE NONLINEAR RES PON 
*SES OF A UNIFORM THICKNESS C I RCUL AR • ,/ , • PARTIAL KING WITH THE 
^FOLLOWING PARAMETERS 


« ' 

MEAN RADIUS OF RING I I N. ) 

= ' ,E15.6 , / 

* ' 

WIDTH OF 

RING (IN.) 

=',£15.6,/ 

1 

THICKNESS 

OF RING I IN.) 

=',£15.6,/ 

« ' 

DENSITY I L B-SEC*<=2/ IN**4) 

= • ,E1 5.6, / 

♦ • 

SUBTENDED 

ANGLE (DEGREE) 

= ' ,E15.6, / 

* « 

NUMBER OF 

ELEMENTS 

= ’ .15 ,/, 

♦ ' 

NUMBER OF 

SPANWISE GAUSSIAN PT S 

='.I5,/, 

* ' 

NUMBER OF 

DEPTHwISE GAUSSIAN PTS 

= 'fI5,/, 

♦ » 

NUMBER OF 

MECHANICAL SUBLAYERS 

= • , I 5 ) 


IFINBCOND .EQ 

. 0) GO TO 12 



DU 14 I = 1,NBCQND 

IFINBCII) .EQ. 1} WRITEIMWRITE, 15) NODEBd) 
IFINBC(I) .EQ. 2) WRITEIMWRITE, 16) NQDEBII) 
IFINBCII) .EQ. 3) WRI TE (iMWRI TE, 17) NUl)EB(I) 
COM INUE 


FORMAT I • SYMMETRY DISPLACEMENT CCNDITIGN AT NODE =',I5) 
format (• CLAMPED DISPLACEMENT CCNDITION AT NODE =',I5) 

FORMAT!' HINGED DISPLACEMENT CC^DITION AT NODE =',I5) 

GO TO 18 

WRITEIMWRITE, 131 

FQRMATI/,' there is NG PRESCRIBED CISPLACEMENT CONDITION') 

IFINQR .EQ. 0) GO TO 19 
WRITEIMWRI TE,20) 

FQRMATI/,' CONSTRAINTS lELASTIC F CUNOAT I ON/ S PRI NG) AS DESCRIBED 


« BY INPUT • ) 

RETURN 

WRITEIMWRITE, 21) 

FORMATI/,' there ARE NO ELASTIC SPRING CONSTRAINTS') 
RETURN 

end 


SUBROUTINE I M P UL S I OE LT A T , A L ) 

C PARTIAL RING 

COMMON /FG / I K,NOGA, NF L ,NS FL , NI , I C OL 12 05 ) , NBCO ND, N 8C I 4 ) , NO DE B I 4 ) 
COMMON /VQ/ FLVA1205) ,01SPI205),DELDI205) ,SNSI50, 3,6,5) , 
^BINP150,3) , GIMPI50, 3) ,SNPI50,3,6,5) 

COMMON /TAPE/ MREAO, MWRITE ,MP'.JNCH 

DO 50 1=1, NI 

OELOII)=D.C 

50 0ISPII) = 0.0 
DO 51 IR=1 , IK 
DO 51 J=1,N0GA 
B I NP I 1 R , J ) =0 . 0 
b I MP I I R , J ) =0 . 0 
DO 51 K=1,NFL 
00 51 L=l,NSFL 
SNPIIR,J,K,L)=0.0 

51 SNSIIR,J,K,L)=C.0 

RE ADIMREAD,! ) NV , IOTA, lUTC.IOTC 

1 FORMAT 1415) 

WR IT £ I MWR 1 TE , 2 ) DELTAT 

2 FORMAT!/, • TIME STEP SIZE USED IN PROGRAM ISECJ =',E15.6) 
IFINV .EQ. 0) WRI TEI MWKITE ,4) 


93 


IF(NV .GT. 0) WKI TF(MWRITE ,6 ) 

4 FGRMAT(/»’ THFRF IS NO INITIAl. IFPULSF ') 

6 FORMAT (/,' IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY 

« INPUT ') 

IF(NV .EQ. 0) RETURN 
IF (I OTA . EG,0 ) GO TO 10 
DO 20 I M= 1,1 OTA 

REA0{MREAD,21 ) I E 1 , I E2 , WRA 0, WRAD 1 , ANGV 1, wR AQ2, ANGV 2 

21 FGRMAT(2I 5/5E15.6) 

IE2M1=IE2-1 

DO 22 I 1=1 ,IE2M1 
I=I£1+II 

22 OELOI I=^4-2 J=DELTAT*i^RAD 
DELOI I El’S'A-2 ) =DELTAT=«=WRAD1 
DELO ( IE 1=4'A-1 ) = DELTAT*ANGV1 
I E2P1= IE1+ IE2 

OELO( IE2Pl*A-2 )=DELTAT*WRA02 
DELOI IE2P1*A-1 )=DELTAT*ANGV2 
20 CONTINUE 

10 IFIIOTB .EG. 0) GO TO 42 

DO 30 IM=1,I0TB 

RE ADIMREAO, 31 I NOOEV , V RAO , WRAO, ANGV 
31 FURMAT{I5,3E1S.6) 

DEL0(NQDEV*4-3 )=DELTAT*VRAD 
DELD(NQDEV*4-2 )=DELTAT*WRAD 
DEL0iNODEV*4- 1 I=DELTAT*ANG V 
30 CONTINUE 

42 IFdOTC .EG. 0) GO TO 60 

DO 61 IM=1,IDTC 
READ(MREA0,62 ) ISl,IS2,WRAC 

62 F0RMAT(2I 5,E15.6I 
PIEP=3.141592 63/ IS2 

DELD( I Sl=«=4-1 ) =WRA0*DELTAT* PIEP/AL 
DO 63 11= 1,IS2 
I=IS1+I I 

DELDn*4-2) = WRAD*DELTAT<=SIN(PlEP=S'I I ) 

63 DEED (I «4-l J=WRAa^DELTAT*P IEP*COSIP IEP*I I ) /AL 

61 CONTINUE 

60 IFINSCONO .EQ. CJ RETURN 

DO 40 1=1 ,NBCONO 
JT4=N0DEB( I)*4 
OELDI JT4-3 J=0.G 

IF (NBC { I ) . EQ. 1 .OR. NBC(1J.EQ.2) DELDI JT4- U = 0 .0 

IF (NBC ( I ) . EQ.2 .OR. N8CU).FQ.3) DE ID ( JT4-2 ) =0 .0 

40 CONTINUE 

RE TURN 
END 


SUBROUTINE PRINT! I T, T I ME , HHAL F , AX , Y ,Z , THET A , AP DEN , SPR I N,BMASS,C2, 
*NQR,KROW,NDEX,NIkREG,CI NFTO l 
C PARTIAL RING ***** 

DIMENSION Y( 51 ) ,Z( 51 ) , COPY (51 ) ,COPZ (51 ) ,fltPS (3 ) ,EPSI ( 5 1 ), £PS0(51 ) 
DIME NS ION FQR£F{ 1 ) ,HMASS( 1 ),KROW( 1 ) ,NDEX( 1 ) , C I NE { 2 05 ) , SPRI N (1) 
*,FAILI( 50) ,FAILG(50) 

COMMON /FG/ I K,NOGA, NF L,NSFL , NT , I CG L ( 2 05 J , NBCGNOfNBC (4 J ,NaD£B(4) 
COMMON /HM/ R, B , H , DENS , YOUN G, OS , C 5 , C6,ASEL( 6,5) ,GZETA( 6) ,SN0(5) 
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COMMON /VQ/ FLVA ( 205) , DISP1205) ,D£LC( 2 05) » SNS{ 50 , 3 ,6 ,5 ) , 
*IUNP{50,3) » eiMP(50,3),SNP{50,3,6,5) 

COMMON /3A/ BEP{ 3, 3, 8) ,AXG 13) ,AWG ( 3) 

COMMON /SC/ MCRIT,CKITS,BIG,IBIG,HTIME,ISURF 
COMMON /TAPE/ MREAD, MWRIT E ,MPUNCH 
DATA ASTER/* ♦•/, BLANK/ * •/ 

DC 700 1 = 1 ,NI 
7C0 CJNE(I)=O.C 

CALL GMULT (BMASS,DELD, I COL ,N I , C I NE ♦ KRO W » NOE X » N I RRE G ) 
CINET = 0.0 
DO 701 I=1,NI 

701 C INET = CINET + DELD ( I)=i'CINE( 1 ) 

CIN£T=CINET^C2 

IF (IT .EQ. 0) CINETO=C INET 

ELAST=0,0 

DO 702 IR=ltIK 

DO 703 J=1,N0GA 

SUM=0-0 

DO 704 K=1,NFL 
DO 704 L=1,NSFL 

7C4 SUM=SUM+SNS{ IR,J,K,L)*«2«ASFL(K,L) 

703 ELAST=ELAS T+SUM*AWG( J) 

702 CONTINUE 
SPDEN=0.0 

IF(NGR .EQ. 0) GO TO 3 1 
DO 30 1=1 ,M 

30 FQREF(I)=0.0 

CALL OMULT ISPRINtDISP, ICOL , N1 , F QRE F ,KROW , N OE X, NIRRFG) 

DO 32 1 = 1 » M 

32 SPDEN=SPDEN+D ISP ( I )*FQREF ( I ) 

SPDEN=SP0EN/2 . 

31 ELAST=ELAST/YGUNG/2. 

CINETT = CINET0+APDEN 
PLAST=CINETT-CINET-£LAST-S PDEN 

WRITE(MWRITE, I ) I T , T I ME ,C I NE TT , C I NE I , E LAST , PL A ST 



FORMAT (////// , • 

J = * , 

15, * 

TIME (SEC.) 

« » 

TOTAL ENERGY 

I NPUT 

(IN. -LB.) 

= ' ,E15.6 ,/ , 

!» * 

K I NET IC 

ENERGY 

(IN.-L8.) 

= ',E 15.6 ,/, 

* • 

ELAST IC 

ENERGY 

(IN.-LB.) 

=*,E15.6,/, 

« • 

PLASTIC 

WORK 

(I N.-LB.) 

= • ,E15.6) 


IF (NQR .EQ . 0 ) GO TO 3 3 
WKITEIMWR IT£,34) SPDEN 

34 FORMAT (• ENERGY STORED IN THE ELASTIC RESTRAINTS (IN.-L3.) 
=i=E15.6) 

33 IKP1=IK+1 

DO 11 1 = 1 , IKP 1 

ANG= ( I-l )*AX+THETA 

COPY! I )=Y( I) + DISP(I*4-3)*CCS(ANG)+DISP(I<‘4-2)*SIN(ANG) 

1 1 COPZ( I) = Z{1)-DISP( I=«=4-3)-S IN( ANG )+D 1SP( I *4-2 ) =>^005 { ANG ) 

DO 601 I R=l, I K 
DO 604 1=1,3 
3EPS( I )=0.0 
DO 604 K=l,a 
INDEX= ( IR-1 )*4+K 

6C4 8EPS( I ) = 3E PS ( I ) + aCP( 2 , I ,K) *DISP( INDEX) 

FARE = BEPS( 1) + BEPS( 2) **2/2. 

FCUR = BEPS { 3) 

EPSI ( IR)=FARE-HHALF*FCUR 
EPSO { I R) = FARE+HHALF*FCUR 
601 CUiNTINUE 
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DO 60 IR= 1 , IK 

IF(CPSniR) .LE. BIG) GO TC 61 
13IG=EPSI( IR) 

I BIG=IR 
ISURF=1 
BTIME=TIME 

61 IFIEPSOdR) .LE. BIG) GO TG 60 

8IG=EPS0( IR) 

IBIG=IR 
I SURF=2 
BTIME=TIME 
60 CONTINUE 

WRITE { MWRI T£ »2 ) 

2 FORMAT!/, • I », 5X, *V • ,1 IX, 'W , S»X, «PSI • ,9X, 'CHI • , IGX, 'COPY' , 

«=8X, 'COPZ* ,9X, • L* , IIX, *M* ,7X, 'STRAIN ( IN) *,4X, ‘STRAINIOUT )• ) 

IFIMCRIT ,GT. C) GO TO 50 
DO 51 1=1 , IK 
FAIL! ( I )=BLANK 
FAILO! I ) = BLANK 

IF{EPSI(I) .LT. GRITS) GO TO 52 
FAILI ( I )=ASTER 
IFtMCRIT .GT. 0) GO TO 52 
MCRIT = 1 

52 IF(EPSOn) .LT. GRITS) GO TO 51 

FAIL0( I ) = ASTER 
IFIMGRIT .GT. 0) GO TO 51 
MGRIT=1 

51 CONTINUE 

IFIMGRIT . LE. 0) GO TO 50 

DO 53 1=1 , IK 

5 3 WRITE (MWRITE, 54) I ,0 ISP (I *4-3 ) , 0 I S P ( I «=4-2 ) , 0 1 S P I I *4-1 ) , 01 SP { 1*4 ) , 

*COPY( I ) ,COPZ( I ) ,BINP( I ,2), 8IMP( 1 ,2 ) ,EPSI n ) ,FAILI ( I ), 

*EPSO( I ) , FA ILO( I ) 

54 F0RMAT(I5 ,9E12.4,A2,E12.4,A2) 

WRITE! MWR I TE , 54) I KP 1 , 0 I SP ( IKP 1*4-3) ,DI SP( IKPl*4-2 ) ,01 S P I IK Pl*4-1 ) 
*,DISP( IKP1*4) , COPY (IKPl ) ,COPZI IKPl) 

WRITEtMWRI TE,55) ASTER 

55 FORMAT I// , 5X, A2, • STRAIN EXCEEDS IHE CRITICAL VALUE') 

RETURN 

5C DO 21 1=1 , IK 

21 WRITE (MWRITE, 2 2) I,DISP( I*4-3),0ISP( 1*4-2) , D1 SP ( I* 4- 1 ) , D I SP ( I *4 ) , 
*COPY( I ) ,COPZ(I ) ,8INP( I ,2), BIMPU ,2 ) , EPS I II ) , EPS 0 ( I ) 

22 F0RMATII5,9E12.4,2X,E12.4) 

WRITE (MWRI TE,22) IKP1,0 ISP ( IKP 1*4-3 ) ,D I SP ( I KP 1* 4- 2 ) , DI S P ( 1 K P 1*4- I ) 
*,D1 SP( IKP1*4) ,COP Y( IKPl ) ,COPZ( IKPl ) 

RETURN 

END 
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JET30 MAIM PROGRAM FOR UNIFORM THICKNESS CIRCULAR RING 
JET3B HOUbCLT OPERATOR 
COMPLETE RING 

DIMENSION A (8, a ), AMASS! 2060 J.BMASS! 2C60) , Y! 5 L j , Z { 5 1 ) , T XG ( 6) ,TWG (6) 
*,ES(6) ,GFL(6),EPS(5J,SIG(5) , INUM! 20 5 J , KROW ( 8 ) , N DEX ( 8 ) 

D I MENS ION DDELD! 205) ,D ISOM (205) ,DI S (205) ,DI SMI (205 ) ,01 SM2 { 205) , 
*FLR (205) ,FLN(205) , FLVM(205 ) , S T I FK ( 2 0 60 ) 

COMMON /TAPE/ MRE AO, MWRI TE ,MPUNCH 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI, ICQL(205) , NBC0N0,N8C (4),NuDE8(4) 
COMMON /HM/ R, B,H,OENS, Y0UNG,DS,C5, C6, ASFL (6,5) ,GZETA(6 ),SNO( 5) 
COMMON /VQ/ F LVA ( 205 ) ,0ISP (205) ,DELC(205) , SNS( 50, 3 ,6,5 ) , 
=i'BINP(50,3) , EIMP(50,3) ,SNP(50,3,6,5) 

COMMON /BA/ BEP(3,3, 8) ,AXG(3) ,AWG( 3 ) 

COMMON /SC/ MCRIT,CRITS,BIG,lBIG,aTIME,ISURF 

COMMON /FORCE/ FMECH(2 05) , T1 , AMPl F V , AM PI F^ , T 2 , AMP2 FV , A MP2F W , 
*AMPFV,AMPFW,N0FT1,NGFT2,N0FT3, JELEM(^) ,ETA(4) ,RT0V(4) ,RT0W(4) , 

♦ NSTF2 (4) ,NELF2 ( 4) , RTQ2V (4) , RT02W ( 4) ,NSTF3( 4 ) ,NCLF3{ 4) ,RT03V ( 4) , 
«RT03W( 4) ,FM 1( 4 , 8,2) ,FM2 ( 8 , 2 ) , FH3 ( 8 , 2 ) , S LOPE V , S L OPEW 
COMMON /ELFU/ SPR I N ( 20 60 ) , NOR P , NOR L ,NREL ( 4 ) , RE X( 4 ) , 

^NRST(4) ,NREU(4 ) 

MREAD=5 

MtJRITE=6 

MPUNCH=7 

REA0(MREAD,1) R, B , H, DE NS , E XANG , I K , NCGA , NF L , NSF L , MM , M 1 , M2 
READ(MREAD,2) DEL T AT , T HET A , CR I TS , OS , P, ( EP S ( L ) , S I G ( L ) , L = 1 , N SFL ) 

1 FORMAT (5E15. 6/715) 

2 FORMAT (5E15.6/(4E15. 6) ) 

READ(MREAO ,3) (AXG(K) ,K = 1,NGGA) 

READ(MREA0,3) (AWG( K) ,K=l, NOG A) 

READ(MREAD,3) ( TXG ( K) , K= 1, N FL ) 

READ(MREAD ,3) (TWG(K) ,K =1,NFL) 

3 FORMAT (4F15. 10 ) 

READ(MREAD,4) NBCONO, (NBC( I),N0DE8(I), I = l,N6CONO) 

4 FORMAT (91 5) 

READ(MREAD ,9 ) NOR , NQRP , NO RU 
9 FORMAT(3I5) 

CALL IOENT(EXANG,NQR) 

PI E=3. 14159265 
I KP1=I K+1 
NI=IK*4 

THETA = THET A*P IE/180. 

BX=2.*PIE 

BL=BX*R 

AL=BL/IK 

AX=BX/ IK 

DO 70 K=1,NFL 

GFL( K) ^H^i^B^TWGIK) /2. 

70 GZETA(K) = H=!=TXG(K)/2. 

ES(1) = SIG( 1)/EPS(1) 

YUUNG=ES( 1 ) 

IF(NSFL-1 ) 77,77,76 

76 DO 73 L=2,NSFL 

78 ES(L)=(SIG(L)-SIG(L-l))/(EPS(L)-EPS(L-l)) 

77 ES (NSFL+1 ) =0.0 
DO 79 L=1,NSFL 

79 SNO(L) = ES ( D^'EPSIL ) 

DC 71 K=1 , NFL 
DO 71 L=1,NSFL 


97 



71 ASFL(K,L) = GFL ( K ) =«= ( ES { L)-ES (L + 1 ) )/ES (1) 
on 72 K-1,NUGA 

AXG(K)=AXG(K) =<^AL/2, 

72 A wG( K )=AWG (K) *AL/2. 

DO 15 1=1,8 

15 ICCL(I) = 1 
IKM1=IK-1 

DO 16 I=3,IKM1 
IK4=I*4 
IK 3= IK 4-1 
I K2=IK4-2 
I K 1=1 K 4-3 
JJ=( I-l)<'4-3 
ICCL(IK1)=JJ 
ICOL ( IK2) =JJ 
ICCL ( IK3 J = JJ 
ICGLI IK4) =JJ 

16 CONTINUE 
icon IK*4)=1 
IC0L(IK*4-1) = 1 
ICOL {IK«4-2J= 1 
ICGL(IK«4-3)=1 
INUM( 1) = 1 

DO 99 1=2, M 

99 I NUM( I ) = I -ICOL (I-l ) + INUM( I-l ) 

DC 990 1=1, NI 

990 I NUM{ I ) = I NUM( I J-ICOLI I ) 

NIRREG=0 
IN0EX=O 
I SET=1 

DO 116 I=1,NI 
L=ICOL ( I ) 

IF (ICOL (I ) -I SET 1117,116, 119 
119 ISET=ICOL(I) 

GO TO 116 

117 NIRREG=NI KREG+1 

IF(NIRREG-NI/2J711,7ll,90 
711 KRGW{NIRREG)= I 

NDEXINI RREG)=INDEX 
116 INDEX= INOEX+I-L 
9C CALL FICOL (NI ,NI ,L,ICOL) 

ISIZE=L 

WRITE(MWRITE, 17) L 

17 FORMAT!/,' SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX =',I5) 

CALL ELMPP( AL, A, AMA S S, ST IF K , I SIZE) 

00 36 L=1 , ISI ZE 

36 BMASS( L)=AMASS(L ) 

DO 23 L=1 , IS I ZE 
23 SPRIN(L)=0.0 

IF (NQR .EG. 0) GO TO 20 
CALL QREM(A,AL,R) 

2C IF (DS. EG, 0.0) GO TO 21 

C5=l ./P 

C6=l ./DS/DELT AT 
21 0TSQ=DELTAT*^=2 

C2 = l./ (2.*DeLTAT*=i'2) 

HHALF=H/2. 

MCRIT=0 
8IG=10.** ( -10 ) 

1 B IG = 0 
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I T=0 

T I ME = 0 . 0 
DO 75 1=1, IK 
ANG=(1-1)*AX+ THETA 
Y( I )=SIf'l{ ANG)’«'R 
75 ZI n=COS(ANG) 

CALL IMPULSIDELT AT, AU 
READ(MREAD,5) TB EG IN , TF IM AL, AMP 1 F V , AMP IFW 
5 FORMAT (AE15. 6 ) 

IFITFINAL .EQ. 0.0) WRI TE ( MWR I TE ,4 8 ) 

48 FORMAT CO THERE IS NO TIME DEPENDENT FORCE DISTRIBUTION DURING 
* THIS RUN • ) 

IFITFINAL .EQ. 0.0) GO TO 49 

CALL LOADEQ(A,R, AL,T BEGIN, TF INAL ) 

49 APOEN=0.0 

CALL PRINT ( I T, TI ME, HHALF,AX, Y ,Z , THE T A , A P DEN , SPR I N, BM ASS , CZ , 
=i'NQR,KROW,NCEX , NIRREG, CINETO ) 

NREADF=0 
T1=T8EGIN 
NLCAD=2 
00 34 1=1, NI 

34 FMECH(I) = 0.0 

IFITBEGIN.GT.O.O .OR. TFI NAL. EQ.O. 0 ) GO TO 30 
NLOAD= 1 

CALL LOADFT (TIME,NREADF) 

CALL FACI AMASS,ICOL,KROW,NOEX,IOET ,RWRITE,NI ,NIRREG, INUM) 

CALL SOLV ( AMASS, FM EC H, ODEL 0, 1 COL , K RC W , NOE X , NI , NIRREG) 

GO TO 31 

3G DO 32 1=1, NI 

32 0DELD(I)=0.0 

31 DO 33 1 = 1 , M 

33 01 SUM! I )=2.*DTSQ*00EL0{I) + 6.«0EL0( I )+6.*DISP(I ) 

MLOAO=NLOAD 

00 35 1=1, NI 
FLRI I )=FMECH{ I ) 

35 FLVM(I)=0.0 

CALL OMULT ( 8M ASS , D I S UM , IC OL , NI ,F L V> ,KR OW , N OE X , M RR EG ) 

DO 37 L=1 , ISIZE 

3 7 AMASS! L)=6.*DMASS ( L) ^-DTSQ^ ISTIFXIL ) +SPRINIL ) ) 

CALL FAC(AMASS,ICOL,KROW,NDEX,IOET ,MWRITE,NI , NIRREG, INUM) 

1 TT=1 

TIME=ITT*DELTAT 
NL0AD=2 
DO 60 1=1 ,NI 
FLVAI I )=0. C 

60 FMECH(I) = 0.0 

IFITIME.lt. TBEGIN .OR. TI M E. GT. T F I N AL ) GO TO 38 

NL0AD=1 

CALL LOADFTIT IME,NREADF) 

38 DO 39 1=1, NI 

39 FLVM ( I ) = DTSQ=*^FMECH(I )*FLVM( I ) 

CALL SOLVI AMASS,FLVM,DIS, ICOL,KROW , NDEX,NI , NIRREG) 

00 61 1=1, NI 

OELDI I )=DIS( I )-DISP( I) 

61 01 SMII I )=OTSQ*DOELO( I )-0I S (I )+2.*DISP{I) 

DO 100 L=l, ISIZE 

ICO AMASS (L ) = 2 .«BMASS ( L) +DTSQ« (ST I FK IL ) +SPR INI L ) ) 

CALL FAC ( AMASS,I COL,KROW, NOEX, IDE T , MQR I TE , NI , N I RR E G , I NUM) 

IFIMLOAD .EQ. 2) GO TO 120 
APD=0.0 99 



DO 46 1=1 , M 

46 APD=APD+F LR I n^DELD ( I ) 

APDE.N=APOEN+APD 

120 ITT=irT+l 
TIME=ITT*DELTAT 

45 DG 121 1 = 1 ,N I 

DI SM2( I )=DISM1 (I ) 

DISMK I) = D ISP I I) 

DISP( I ) = OIS( I ) 

FLR( I ) =FMECH{ I ) 

FLN( I ) = FLVA( I J 
FLVAd J=0.0 
FMECHI I 1 = 0.0 
FLVM ( I 1=0.0 

121 DISUMI I1=5.*DISP( I )-4. SMI ( 1 1+DISM2(I 1 
DO 47 K=l, 4 

OISPI IK#4 + K1=DISP(K1 

47 DELO( IK=«=4 + K) = DEL0(K1 
MLOAD=NLOAD 

CALL STRESS 

CALL OMULT { BM A SS , 01 SUM , IC OL,N I , F LV M ,KROW , NDEX , NIRREG) 

NL0A0=2 

IF (TIME.LT.TBEGIN .OR. T I M E . GT ,T F I N AL 1 GO TO 122 
ML0AD=1 

CALL LQAOFTIT IME.NREAOF 1 

122 DO 123 1=1 ,NI 

123 FLVMI I 1=IFMECH(I 1-12.*FLVA {I 1-FLN( 1 1 1 1 *DTS Q+F L VM ( I ) 

IFINBCCNO .EQ. 01 GO TO 124 

DO 125 1 = 1 ,N8C0ND 
JT4=N0DE3( 11*4 
FLVMI JT4-3 1=0.0 

IFINBCI Il.EQ. 1 .OR. NBC(I1.EQ.21 FL VM I JT4-1 1 =0 .0 
IFINBCIIl. EQ.2 .OR. NBC(Il.EQ.3i FLVMI JT4- 21 = 0 .0 

125 CONTINUE 

124 CALL SCLV I AMASSf FLVM.D IS» ICOL,KRCW»^DEX,N^ ,NIRREG1 
DO 126 1=1 ,NI 

126 DELDI I 1=DI SI I 1-DI SPI II 
IFIMLOAD .EQ. 21 GO TO 41 
A PD=0. 0 

DO 42 1=1, NI 

42 APD=APD+FLRI I 1*DELDI I 1 

APDEN=APDEN+APO 
41 IT=ITT-1 

TIME=IT*DELTAT 

IFIIT .EQ. 11 CALL PRINTI IT, TIME, HH/ILF, AX, Y,Z, THETA, APDENtSPkIN, 
*BMASS»C2,NQR,KR0W ,NDEX, NIRREG, CINETO) 

IFIIT-Mll 130 ,140, 150 
140 M1=M1+M2 

CALL PRINT I IT, T1 ME, HHAL F, AX , ,Y ,Z , THET A , AP DEN , SPR I N, BM ASS , C 2 , 
*NQR,KROW,NDEX, NIRREG, Cl NETOl 
130 IFIIT-MM) 120,170, 150 

170 IFIIBIGl 62,150,62 

62 IFIISURF-21 64,65,65 

64 WRITEIMWR ITE,661 B IG , I B IG , BT I ME 

66 FORMATI///,' LARGEST COMPUTED STR/SIN =',E15.6,* OCCURS AT THE 
♦ INNER SURFACE MIDSPAN OF ELEMENT =»,I3,* AT TIME ISEC.l =',E15.61 

GO TO 150 

65 WRITEIMRRI TE, 67) BIG , I B IG , BT I ME 

67 FORMATI///,' LARGEST COMPUTED STRAIN =',E15.6,' OCCURS AT THE 
♦OUTER SURFACE MIDSPAN OF ELEMENT =',I3,' AT TIME ISEC.) =',E15.61 
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150 CALL EXIT 
END 


SUBROUTINE ASSEMdR, I K , EL M AS , S T I FM , ICOL,NI ) 
Q COMPLETE RING 

DIMENSION ELMAS(8,8),NiM(8),STIfM{ 1) ,IC0L{1) 

JL=IR*4 

NN( l)=Jl-3 

NN 12 ) = Jl-2 

NNI3) =J1-1 

NN(4)=J1 

IF(IR-IK) 203,204,204 
2C3 J2=(IR+1)*4 

NN(5)=J2-3 
NN(6) =J2-2 
NN(7)=J2-1 
NNI8 ) = J2 
GO TO 202 
204 NN(5)=1 

NN(6)=2 
NN(7) =3 
NN (8 ) = 4 

202 DO 402 1 = 1 ,8 
M=NN( I ) 

DO 402 J=l,8 
N=NN( J) 

IFIM-N )402,403,403 
403 CALL F ICOL (M, N,L, ICOU 

STIFM(L) = ST1FM{L)+ELMAS(I , J) 

402 CONTINUE 
RETURN 
END 


C 


121 


122 


SUBROUTINE AS SEE ( I R , I K , ELF P, F LV A ) 
COMPLETE RING 

01 MENS ION NN (3 ) ,FLVA{ 1 ) , EL FP ( 1 ) 

J1=IR*4 

NN(l)=Jl-3 

NN(2 J =Jl-2 

NN(3)=J1-1 

NN{4 ) = J1 

IF(IR-IK) 121,122,122 
J2=( IR + 1) 

NN(5 )=J2-3 
NN(6) =J2-2 
NN(7 )=J2-1 
NN{3)=J2 
GO TO 123 
NN (5 ) = 1 
NN(6) =2 


NN (7 J = 3 
NN (8 ) =4 
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123 


DO 101 1=1,8 
M=NN ( I ) 

FLVA(M)=FLVA(M)+ELFP(I ) 
101 CUMT INUE 
RETURN 
END 


SUBROUTINE I D ENT I EXA NG , NQR J 
C COMPLETE RING ***«=* 

COMMON /FG/ IK,N0GA, NFL,NSFL,NI, ICOL (205) , NBCOND, NBC ( 4 ) ,NODEB( 4) 
COMMON /HM/ R,B,H,DENS, Y0UNG,0S,C5,C6,ASFL(6,5) , GZET A ( 6 ) , SNO ( 5 ) 
COMMON /TAPE/ MR EAD, MWR ITE ,MPUNC H 
WRITE (MWRl TE, 1 ) R , 3, H, DENS , I K , NOGA , MFL , NSF L 

I FGRMATC «*=!=JET3B«*** A SPATIAL FINITE ELEMENT AND HOUBOLT TEMPOR 

♦ AL CPERATOR PROGRAM',/, • USED TO CALCULATE THE NONLINEAR RESPON 
♦SES OF A UNIFORM THICKNESS CIRCULAR*,/,' COMPLETE RING WITH THE 

♦ FOLLOWING PARAMETERS ',//, 

MEAN RADIUS OF RING (IN.) =',E15.6,/, 

♦ • WIDTH OF RING (IN.) =*,E15.6,/, 

THICKNESS OF RING (IN.) =',E15.6,/, 

♦ • DENSITY ( L8-SEC*^2/IN<'*4) =',E15.6,/, 

w* NUMBER OF ELEMENTS =',I5,/, 

NUMBER OF SPANWISE GAUSSIAN PTS =*,I5,/, 

*• NUMBER OF OEPTHWISE GAUSSIAN PTS =',I5,/, 

=«=• NUMBER OF MECHANICAL SUBLAYERS =*,I5) 

II IF(NBCOND .EQ. 0) GO TO 12 
DO 14 I=1,NBC0ND 

IF(NBC(I) .EQ. 1) WRITE(MWRITE, 15) NOOEH( I ) 

IFINBCd) .EQ. 2) WRITE(MWRITE,16) NOD£B( I ) 

IFINBCd) .EQ . 3) WR ITEIMWRITE, 17) NODEB( I ) 

14 CONTINUE 

15 FORMAT! * SYMMETRY DISPLACEMENT CCNDITION AT NODE =',I5) 

16 FORMAT!* CLAMPED DISPLACEMENT CCNOITION AT NODE =',I5) 

17 FORMAT!' HINGED DISPLACEMENT CONDITION AT NODE =',I5) 

GO TO 18 

12 WRITE (MWRI TE, 13) 

13 FORMAT!/,' THERE IS NO PRESCRIBED CISPLACEMENT CONDITION') 

18 IFINQR .EQ. 0) GO TO 19 
WRITE(MWRITE,20) 

20 FORMAT!/,' CONSTRAINTS (ELASTIC F CUNDAT I ON/ S PR I NG ) AS DESCRIBED 
« BY INPUT • ) 

RETURN 

19 WRITE(MWRI TE, 21) 

21 FORMAT!/, • THERE ARE NO ELASTIC SPRING CONSTRAINTS') 

RETURN 

END 


SUBROUTINE I MP UL S ( DEL T AT, A L ) 

Q COMPLETE RING 

COMMON /FG/ I K,NOGA, NF L ,N S FL , NI , I C C L (205 ) , NBCO NO , N bC ( 4 ) , NO DEB { 4 ) 
COMMON /VQ/ FLVA(205 ),DISP(205),DELD(205) , SNS( 50, 3,6, 5) , 


102 



^■BINPC 50,3) , BIMP(50, 3) , SNP( 5 0,3,6,5) 

CONMON /TAPE/ HR FAD, MW R IT E ,M PUNCH 
DO 50 1=1 , NI 
DELO( I ) = 0. C 
5C DISP(I)=0.0 

DO 51 IR=1,IK 
DC 51 J=l, NOGA 
B I NP ( I R , J ) =0 . 0 
BIMP( IR, J )=0. 0 
DO 51 K=1 , NFL 
DO 51 L=1,NSFL 
SNP( IR,J, K,L ) =0.0 
51 SNS(IR,J,K,L)=0.0 

REA0(MREA0,1) NV , I OTA , I 0T8 , 1 OTC 

1 FORMAT 1415) 

WRITE (MWRI TE ,2 ) DELTAT 

2 FURMATC/,' TIME STEP SIZE USED IN PROGRAM (SEC) =*,E15.6) 
IFINV ,EQ. 0) WRITE(MWRITE,4) 

IF(NV ,GT. 0) WRI TE(MWRITE ,6) 

4 FORMAT {/,' THERE IS NO INITIAL IMPULSE •) 

6 FORMAT!/, • IMPULSE LOADINGS HAVE EEEN SPECIFIED AS DESCRIBED BY 

♦ INPUT •) 

IF(NV .EQ. 0) GO TO 41 
IF (IOTA .EQ.O) GO TO 10 
DO 20 IM=1,I0TA 

READ(MREAD,21 ) I El , I E2 , WRA 0, WRAD 1 , ANGV 1 , WR AD2 , ANGV 2 

21 F0RMAT(2I 5/5E15.6) 

IE2M1=IE2-1 

DO 22 I 1 = 1 ,IE2M1 
1= lEl + I I 

IF(I ,GT. IK) I=I-IK 

22 0£L0( 1*4-2 )=DELTAT»WRAO 
DELO( I E1*4-2)=DELTAT*WRAD1 
OELO{ I El*4-1 ) =0ELTAT*ANGV1 
IE2P1= IE1+IE2 

IF(IE2P1 .GT. IK) IE2P 1=IE2P1-IK 
DELD( I E2P1 *4-2 ) = DE LT AT * WR A D2 
DELD( IE2P 1*4- 1 )= OE LT AT *AN G V2 
20 CONTINUE 

10 IFdOTB .EQ. 0) GO TO 42 

DO 30 IM=1,I0TB 

READ(MREA0,31 ) NODEV , V RAD , WRA 0, ANGV 
31 FORMAT! 15, 3E15.6) 

DELD(N0DEV*4-3 )= DELT AT *VRA D 
DELD (NODE V *4-2 ) = DE LT AT * WRAO 
DELD(N00EV*4-1 )=OELTAT*ANGV 
30 CONTINUE 

42 IFdOTC .EC. 0) GO TO 60 

DO 61 IM=1,I0TC 
REA0(MREAD,62 ) IS1,IS2,WRAC 

62 FORMAT (21 5,E1 5.6) 

PIEP=3. 14159265/ IS2 

DELD ( I S 1*4-1 ) = WRAD*DELTAT* PIEP/ AL 
DO 63 II=1,IS2 
I = IS1 + I I 

IFd ,GT. IK) I=I-IK 

DELD( 1 *4-2 )=WRAD*DELTA T*S IN! PIEP*I I ) 

63 DELD! 1*4-1 )=WR AO*OELTAT*P I £P*COS (PIEP*Ii)/AL 

61 CONTINUE 

60 IF(NBC0ND .EQ.O) GO TO 41 
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DU 40 I=1,N3CUN0 
JT4=N0DEB ( I) *4 
DELD( JT4-3 )=0. G 

IE (NBC ( I ) . EQ. 1 .OR. NBC(I).EQ.2) 0 E LD ( J T4- L ) =0 . U 
IF (NBCdJ. EQ. 2 .OR. N8C(I).Ea.3J 0 E LO ( JT4- 2 ) = 0 .0 

40 CONTINUE 

41 DO 43 K=1 ,4 

DI SP( I K«4+K) =OISP( K) 

43 DELO( IK*4+KJ=DELD(K) 

RETURN 

END 


SUBROUTINE PR I NT ( I T, T I ME , HHAL F , A X , V ,Z t THE T A , APDEN , SPR I N,8MASS,C2 , 
♦NQR,KROW,NDEX, NIRREG.CINETO ) 

C COMPLETE RING 

01 MENS ION Y(51 ) ,Z( 51 ) , COP Y ( 5 1 ) , CO P Z ( 51 ) , BE P S ( 3 ) , EP SI ( 5 1 ) , E PSO( 5 I ) 
DI ME NS I ON FQREF(l) ,BMASS( 1 ),KROW ( 1 ) ,NDEX( I ) , C I NE ( 20 5 ) , S PR I N ( 1 ) 
«,FAIL1{ 50) , FAILQ( 50) 

COMMON /EG/ IK, NOG A, NEL , NS EL , N I , ICCL ( 2 05 ) , NBCOND.NBC ( 4},NJDE3(4) 
COMMON /HM/ R,B,H,OENS, YQUNG,DS,C5,C6,ASEL(6,5) ,GZETA(6 ),SN0(5) 
COMMON /VO/ FLVA(205),DISP(205),DELC( 205) ,SNS( 50,3,6,5) , 

♦ BINP( 50,3) , 81 MP (50,3) ,SNP( 50,3,6, 5) 

COMMON /BA/ BEP( 3,3, 8) ,AXG(3) ,AWG( 3) 

COMMON /SC/ MCRIT,CRITS,3IG, IBIG,BT IME, ISURF 
COMMON /TAPE/ MREAD, MWRITE ,MPUNCH 
DATA ASTER/' *•/, BLANK/ * •/ 

DO 700 1=1 ,NI 
700 CINE(II=0.0 

CALL OHULT (BMASS ,0ELD, ICOL,NI,CINE,KROW,NDEX,N IRREG) 

CINET=0.0 
DO 701 1=1, NI 

7CI Cl NET=CINET+OELD(I )^CINE( n 
C INET=CINET*C2 
IF(IT ,EQ. 0) CINETU=CINET 
ELAST=0.0 
DO 702 IR=1,IK 
DO 703 J=1,N0GA 
SUM=0. 0 

DO 704 K=l,NFL 
DO 704 L = 1 ,NSFL 

7C4 SUM=SUM + SNS(IR , J , K , L ) *=f=2« A SF L ( K , L ) 

703 ELAST=ELAST+SUM4=AWG( J) 

702 CONTINUE 
SP0EN=0.0 

IFINQR .EQ. 0) GO TO 31 
DO 30 1=1, NI 

30 FQREF(I)=0.0 

CALL OMULT{SPRIN,l)TSP, I COL , N I , FQR EF ,KROW , N DEX, NIRREG) 

DO 32 1=1, NI 

32 SPDEN=SPDEN+DISP ( I )*FQREF ( I ) 

SPDEN=SPDEN/2. 

31 ELAST=ELAST/Y0UNG/2. 

CINETT=CINETO+APDEN 

PLAST = CINE TT-CINET-ELAST-SPDEN 

WRITE(MWR ITE, 1 ) IT,TIME,C I NE T T , C I NE T , E LAST ,PLAST 

1 EOPMATCl J = ',I5,' TIME (SEC.) =',E15.6,/, 

♦ • TOTAL ENERGY INPUT (IN.-LB.) =',E15.6,/, 
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KI NETIC 

ENERGY 

(IN.-LB. ) 

=^*,E15.6,/ 

♦ • 

ELASTIC 

ENERGY 

(IN. -LB. ) 

?=»,E15.6,/ 


PLASTIC 

WORK 

(IN.-LB.) 

=*,E15.6) 


Ir(NQR .EQ. 0) GO TO 33 
WRITE(MWRITE,34} SPOEN 

34 FORMAT (• ENERGY STORED IN THE ELASTIC RESTRAINTS (IN. -LB.) =', 

*E15.6) 

33 IKPl=iK+l 

DO 11 1=1, IK 
ANG=( I-1)*AX+THETA 

COPY ( I ) = Y( I) + 0ISP(I*4-3)«C0S(ANG)+D1SP(I*4-2)*SIN(ANG) 

11 COPZ( I ) = Z( I)-OISP( I*4-3)*SIN(ANG) + DISP(I»4-2)*C0S(ANG) 

DO 601 IR=1,IK 
DO 604 1 = 1 ,3 
BEPSd )=0.0 
DO 604 K=l,8 
INDE X=( IR-1)*4+K 

6C4 BEPSI I )=8EPS( I )*8EP(2, I,K)*DISP( INDEX) 

FARE=BEPS( l) + 8EPS(2)**2/2. 

FCUR=8EPSl 3) 

EPSK IR)=FARE-HHALF«FCUR 
EPSO(IR)=FARE«-HHALF*FCUR 
601 CONTINUE 

DO 60 IR=1 ,IK 

IF(EPSKIR) .LE. 8IG) GO TO 61 
8IG=EPSI(1R) 

IBIG=IR 

ISURF=1 

8TIME=TIME 

61 IF(EPSOdR) .LE. BIG) GO TO 60 

BIG=EPSO( IR) 

1BIG=IR 
I SURF=2 
BT IME=TIME 
60 CONTINUE 

WRITE(MWRITE,2) 

2 FORMAT!/, • I • , 5X, * V * , 1 IX, • W • , 9X, *PSI • , 9X, 'C HI • , lOX, *CQP Y* , 

♦ 8X, *COPZ» ,9X,» L* ,1 IX, »M*,7X,« STRAIN (IN) *,4X, *STRAIN(OUT )» ) 

IFIMCRIT .GT. 0) GO TO 50 
DO 51 1=1 , IK 
FAILI ( I )=8LANK 
FAILOl I )=BLANK 

IFCEPSKI) .LT. CRITS) GO TO 52 
FAILK I)=ASTER 
IFIMCRIT .GT. 0) GO TO 52 
MCRIT=1 

52 IF(EPSOd) .LT. CRITS) GO TO 51 
FAILOd) = ASTER 

IFIMCRIT .GT. 0) GO TO 51 
MCRIT=1 

51 CONTINUE 

IFIMCRIT .LE. 0) GO TO 50 
DO 53 1=1 , IK 

53 WRITEIMWRITE ,54) I ,DI S P ( I ♦4-3 ) ,D IS P (1*4-2 ) , DIS P( 1*4-1 ) ,DISP( 1*4) , 
♦COPY! 1 ),COPZ( I ) ,BINP( I, 2),BIMP(I ,2)iEPSI(I ) ,FAIL1(I ), 

*EPSQ( I ) ,FAILO( I ) 

54 F0RMAT(I5, 9E12.4,A2,E12.4,A2) 

WRITE(MWRITE, 55) ASTER 

55 FORMAT!//, 5X,A2,» STRAIN EXCEEDS THE CRITICAL VALUE*) 

RETURN 


105 



DO 21 1=1, IK 

WRITECMWRI TE ,22) I ,01 SP( 1*4-3) ,DISPI 1*4-2) , OISP ( 1*4-1 ) , DISP {1*4 ) , 
♦COPY( I ) ,COPZ(I ) ,BINP( I, 2), 8 IMP( I, 2), EPS I ( I ) ,EPSOC I ) 
F0RMAT(I5,9E12-4,2X,E12.4) 

RETURN 

END 


SUBROUTINE ELMPPf AL, A, AMA SS, ST I FK , I S I Z E ) 

TO FIND THE MASS MATRIX STIFFNESS MATRIX AND STRAIN NODAL 
DISPLACEMENT TRANSFORMATION MATRICES 

DIMENSION A( 8 ,8) , LMI (8) ,M M I ( 8 ) , D (8 , 8) , ELM ( 8,8 ) , ELM AS (8 ,8) , 

*E( 8,8 ) , EKK 8, e ) ,ELK(8,8) ,BE1( 3,3, 8) 

DIMENSION AMASS! 1 ) ,STI FK( 1 ) 

COMMON /FG/ I K,NQGA,NFL,NSFL,NI , ICCL(205) , NBC OND, N BC ( 4 ) , NO DEB( 4 ) 
COMMON /HM/ R , 8,H, DENS , YOUN G, OS , C 5, C 6 , A SFL ( 6,5) ,GZE TA ( 6 ) , SNQ ( 5) 
COMMON /BA/ BEP(3,3,8) ,AXG(3),AWG(3) 

COMMON /TAPE/ MREAO, MWR ITE ,MPUNCH 
X=AL/(R*2. ) 

RHO=DENS*B*H 
R I=RH0*H**2/1 2. 

STG=YOUNG*R*H 
SS=STO*H**2/12. 

DO 6 1=1,8 
00 6 J=l,8 
0( I, J)=0.0 
E( I, J)=0.0 
A(I , J) =0. 

A( 1,1)= COS(X) 

A(l,2)= S IN(X ) 

A( 1,3)=!-R)*( 1.- C0S(X)**2) 

A( l,4)=-AL/2. 

A(2,l )=- S IN(X ) 

A{ 2,2)= COS(X) 

A(2,3)=-R* SIN(X)* COS(X) 

A(2,5)=AL**2/4. 

A( 2,6)=-AL**3/8. 

A(3,3)=l . 

A(3,4)=AL/R/2. 

A(3,5)=-AL 
A(3,6)=AL*»2*3./4. 

A( l,7)=AL**2/4. 

All,8)=-AL**3/8. 

A(3,7) =-AL**2/4./R 
A(3, 8)=AL**3/8./R 
A(4,4)=l. 

A(4,5)=AL**2/4./R 
A(4,6)=-AL**3/8./R 
A(4,7)=-AL 
A(4,8)=3.*AL**2/4. 

A( 5, 1)= COS( X ) 

A(5,2)=- SIN(X) 

A( 5,3) =<-R )♦( 1.- C0S(X)»*2) 


106 



A( 5,4)=AL/2. 

A( 5,7)=AL**2/A. 
A(5,8)=AL**3/8. 

A(6,l)= SIMX) 

A( 6, 2)= COS( X) 

A(6,3)=R# SIN(X)* CGS{X) 
A( 6,5) =AL**2/4. 
A(6,6)=AL«*3/8. 

A(7,3)=l. 

A( 7,4) =-AL/2. /R 
A(7,5)=AL 

A( 7,6)=AL*<'2*3./4. 

A( 7, 7)=-AL=M=2/4./R 
A(7,8)=-AL**3/8./R 
A( 8,4)=1. 


A(8,5)=AL*«2/4./R 
A( 8,6)=AL««3/8./R 
A( 8,7) =AL 

AJ8,8) = 3.*AL**2/4. 

CALL MINV( A,8,DET,LMI,MMI ) 

P2=2.*X*#2* SINIX)+4.#X» C0S(X)-4.* SIN(X) 

P3=-2 .*X*<'3* COS (X )+6.*X**2<' S IN ( X ) *1 2 . *X* COS(X)-12.4 SIN(X) 


D( 1 
D(2 
n(3 
0(3 
D(4 
0(4 
0( 5 
0(5 
0(5 
0(6 
0(6 
0(6 
0(7 
0(7 
D( 7 
D(7 


1 ) =RH0*AL 

2) = RH0«AL 

1 ) =RHO«R* (-R*2 SIN(X)+ COS(X)=*AL) 

3) =RH0*R=J'*2*( AL+ C OS ( X )**2*AL-4 .*R* SIN(X)* COS ( X ) ) +R I #AL 
2)=-RH0«R4<'2*(-2.#X* CQS(X) + 2.* SIN(X)) 

4) =RHO«AL*^3/12. +R I*AL<‘^3/R<'*2/ 12. 

2) =RH0»R*«3*P2 

4) =-RI*AL«*3/R/6. 

5) =RH0*AL=('*5/80.+R I*AL««3/3. 

1 )=RH0*R<'*4<'P3 

3 )=RH0*R**5* COS (X ) *P 3+R I «AL ♦♦3/4. 

6) =RHn^AL«^7/448. + RI^AL*^5^9./8C. 

1 ) = RH0^P^43^P2 

3) =-RHC^R^ (AL*«3/12.-R^^3* COS ( X )^P2 ) -R I ♦AL4^3/R/ I 2. 

6) =-3.^RI ♦AL^^5/R/80. 

7) = ( AL4^5/80 . )^(RHO+R I/R^^2) 


D( 8,2)=-RHC^R^^4^P3 
D(8,4) = D( 7,7) 

D(8,5)=-RI^AL^^5/R/40. 

D( 8,8)=( AL^^7/448. )♦ ( RHCM- R 1/ R^^2 ) 
E(4,4)=AL^(ST0+SS/R^^2) 

E ( 5,4)=ST0^AL^^3/ (R412. )-2.^SS^AL/R 
E ( 5, 5)=ST0^AL445/( R*^2^30. ) + 4.^SS^AL 
E( 6,6 ) = ST0^AL^^7/(R^^2^448.)+3.^SS^AL^^3 
E ( 7,6)=ST0^AL^^5/(R440 . )-SS4AL^^3/R 
E( 7, 7) = ( ST0+SS/R^^2)^AL^^3/3. 

E(8,4) = (ST0+SS/R^«2)^AL^^3/4. 

E ( 8,5)=3. ♦ST0^AL^^5/ (R^80. )-SS^AL^^3/ ( R^2 . ) 
E( 8,8)=9.^(ST0+SS/R^^2 )«AL^^5/80. 

DO 3 1=1,7 
I P 1= I + 1 


DO 3 J=IP1,8 
E( I, J)=E( J,I) 
D( I, J)=D( J,I) 
DO 4 1=1,8 
DO 4 J=l,8 
EKK I, J) = 0.0 
ELM( I, J) = 0. 
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DO 4 K=l,8 

EKK I, J) = EK1( r,J ) + A(K, I)«E(K,J) 

4 ELM( I , J)=ELM( I »JJ + A(K» T)^D(K,J) 

DO 5 1=1,8 

DO 5 J=l,8 
ELK( I , J) = 0.0 
ELMAS( I, J )=0. 

DO 5 K=l,8 

ELK{ I , J) = ELK( I ,J)+EK1(I ,K)*A<K,J) 

5 FLMAS( I,J)=ELMAS( I , J I + ELM ( I , K l*A IK , JJ 
DO 44 K=1 ,NOGA 

DO 21 1=1,3 
DO 21 J=l,8 

21 BE1(K,I ,J)=0. 

BEKK, 1,4)=1. 

BEIIK, 1,5 )=AXG(K )tc*2/R 
BE1(K,1 ,6)=AXG(K)«*3/R 
BEKK, 3,41 = 1. /R 
BE1IK,3,5 )=-2 . 

BEKK, 3,6) =-6.*AXG(K) 

BE1IK,2,3)=1. 

8E1(K,2,4)=-AXG(K)/R 
BE II K, 2, 5) =2. *AXGI K) 

BEKK, 2, 6) =3. ♦AXGIK)**2 
BE1IK,1 ,7)=2.*AXG(K> 

BE IIK, 1,8)=3.*AXGIK)**2 
BE1IK,3,7)=2.*AXGIK)/R 
BE1IK,3,8)=3.*AXGI K)**2/R 
BEKK, 2,7) =-AXGlK)**2/R 
BE1IK,2,8 )=-AXGIK)**3/R 
4A CONTINUE 

DO 22 NL=l,NOGA 
DO 22 T=1 ,3 
DO 22 J=l,8 
BEPINL,!, J )=0. 

DO 22 K=1 , 8 

BEPINL , I , J )=BEPINL,I , J )+BEllNL,I ,K)*AI K,J) 

22 CONTINUE 
WRITEIMWRITE,15) 

WRITEIMWRITE, 16) I I E LM ASI I , J ) , J=1 , 8 ) , I =1 , 8 ) 

WPITEIMWRITE,17) 

WRITEIMWRITE, 16) I I E LK 1 1 , J ) , J=1 , 8 ) , 1=1 , 8 ) 

16 FORMAT I 8D1 5. 6) 

15 FORMATI/,' ELEMENT MASS MATRIX •) 

17 FORMATI/,' ELEMENT STIFFNESS MATRIX •) 

DO 18 L = l, I SIZE 

STIFKIL)=0.0 

18 AMASSIL)=0.0 
DO 19 IR=1 ,IK 

CALL ASSEMIIR,IK,ELK,STIFK,ICOL,NI ) 

19 CALL ASSEMI IR, IK ,ELMAS, AMASS, ICOLtNI ) 

IFINBCOND .EQ. 0) RETURN 

DO 91 I=1,NBC0ND 
JT4=N0DEBI I)=«‘4 
JT4M3=JT4-3 
JTAM2=JT4-2 
JT4Ml=JT4-l 

CALL ERCIJT4M3, AMASS, NI,ICOL) 

IFIN8CI I ) . EQ. 1 .OR. NBCII1-EQ.2) CALL ERCIJT4M1, AMASS, NI , ICOL) 
IFINBCII).EQ.2 .OR. N8CII).EQ.3) CALL ERC IJT4M 2, AMASS, NI , I COL) 
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CALL FRC( JT4M3,STIFK »NI ,ICOL» 

IF(NBC( I) .EQ.l .OR. NSC(I).EQ.2) CALL ERC( JT4M 1, STIFK, NI , ICOL) 
IF (NBC( I) . EQ.2 .OR. NBC(I>.EQ.3) CALL ERC ( JT4M2, ST I FK , N I , ICOL ) 
91 CONTINUE 
RETURN 
END 


SUBROUTINE LOADEOI A, R , AL, T BEGIN, TF INAL ) 

C TO FIND GENERALIZED NODAL LOAD AND EXT ERN ALLY- APPL I ED LOAD TRaNS- 

C FORMATION MATRICES 

DIMENSION A(8 ,8) , FM(8, 2 ), FMC(8,2 ) , FML( 8,2) 

COMMON /FORCE/ FME CH ( 2 05) , T1 , AMPl F V ,AMPl FW , T2 , AMP2 FV , AMP2FW , 

♦ AMPFV, AMPFW ,N0 FTl , NOF T2 , NOF T3 , JEL E M ( 4) , ETA( 4) ,RTOV( 4) ,RTOW( 4) , 
«NSTF2(4) ,NELF2 (4) ,RT02V(4) ,RT02W(4) , AS T F3 ( 4 ) , NELF3 ( 4) , RT03V ( 4 ) , 

♦ RT0 3WI4) ,FM 1( 4, 8, 2) ,FM2 ( 8, 2 ) , F M3 ( 8 , 2 ) , S LOPE V , SL CPE W 

common /tape/ mread, mwr ite ,mpunch 

IFITFINAL .EO. 0.0) RETURN 
WR ITE( MWR ITE, 47) TBEGI N, TF INAL 

47 FORMATCO STARTING TIME OF FORCING FUNCTION (SEC) =',E15.6,/, 

♦ ' STOPPING TIME OF FORCING FUNCTION (SEC) =*,E15.6) 

READ(MREAD,6) NOFT1,NOFT2,NOFT3 

6 F0RMAT(3I5) 

7 F0RMAT( T5, 3E15.6) 

8 F0RMAT(2I5,2E15.6) 

IF(N0FT1 .EQ. 0) GO TO 54 

READ(MREAD,7) ( JELEM( I) ,ETA (I ) ,RT0V( I) ,RTOW( I ) , 1=1 ,N0FT1) 
no 100 1=1 ,N0FT1 
SL=ETA( I ) 

X=AL/R/2 

FM(1 ,1 )=CCS(SL/R) 

FM(2,1)=-SIN( SL/R) 

FM(3,1 )=-P*( 1 .-CQS(SL/R )*C0S( XI) « 

FM(4,1 )=SL 

FM(5, 1)=0. 0 

FM(6,1 )=0.0 

FM(7,1 )=SL**2 

FM(8, I )=SL**3 

FM(1 ,2 ) = SI MSL/P ) 

FM(2,2)=C0S( SL/R) 

FM(3,2 )=P*SIN(SL/R)«COS(X ) 

FM(4,2)=0.0 
FM(5, 2)=SL**2 
FM(6,2 ) = SL ^*3 
FM(7,2)=0.0 
FM(8,2)=0.0 
DO 101 M=1 ,8 
DO 101 N=l,2 
FMK I , M,N )=0.0 
DO 101 K = 1 ,8 

101 FMK I,M,N) =FM1(I ,M,N) + A(K ,M)*FM(K,N) 

100 CONTINUE 
54 DO 202 M=1 ,8 
DO 202 N=l,2 
FMC(M,N) = 0.0 
202 FML(M,N)=0.0 

X=AL/R/2. 
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FMC(ltl)=R*2.*SIN(X) 

FMC( 3. 1 ) = -R*AL+R**2*SIN(2-»X) 

FMC(7,1 )=AL**3/12. 

FMC( 2,2)=R*2.*SIN(X) 

FMC(5,2)=AL**3/12. 

FML(2 » 1)=-P**2*(-2.*X*C0S (X)+2.*SIN(X) )/AL 
FML( 4, l) = AL=«'*2/12. 

FML(8,1 )=AL=«'«4/80. 

FML{ 1 ,2)=R«*2*(-2.*X*CQS(X )+2.*S IN(X))/AL 

FML( 3, 2) = R**3^C0S( X)=«'(-2.*X*C0S( X) +2.*SIN( X) ) /AL 

FML(6,2 )=AL**4/80. 

DO 201 M=1 ,8 
DO 201 N=l,2 
FM2( M,N)=0.0 
FM3( M,N) = 0.0 
DO 201 K=l,8 

FM2( M,N) = FM2 (M»N) + A(Kt M)*FMC(K»N) 

FM3( M, N) = FM3( M,N) + A(K, M)*FML(K,N) 

201 CONTINUE 

41 IF(N0FT2 .EO.O) GO TO 42 

READ(MREAD,8) ( NSTF 2( I ) i NE L F2 ( I) , RTC2V( I ) , RT02W ( I ) , I=1,N0FT2) 

42 TF(N0FT3 .EQ. 0) RETURN 

READ(MREAD,ft) ( NSTF3 ( I ) ,NE LF3 ( I) , RTC3V (I ) , RT03 W( II ♦ 1=1 ,N0FT3 ) 

RETURN 

END 


SUBROUTINE LGAOF T ( TI ME , NRE ADFI 

C TO FIND THE GENERALIZED NODAL LOAD VECTOR EQUIVALENT TO THE 

C EXTERNALLY-APPLIED LOAD 

DIMENSION ELF(8) 

COMMON /FG/ IK ,NCGA,NFL,NSFL,NI, IC OL ( 205 ) , NBCOND, N BC ( 4 ) ,NQDEB( 4 ) 
“^COMMON /FORCE/ FMECH ( 205 1 t Tl , AMPl F V t AM PI FW , T2 , AMP2 FV , AMP2FW t 
«AMPFV,AMPFW,N0FT1,N0FT2,N0FT3, JELEM(4) ,ETA(4) ,RT0V(4) tRT0W(4) * 

♦ NSTF2(4) ,NELF2 (4) ,RT02V (4) , RT02W(4) , NST F3( 4 ) , NE LF3 ( 4) , RT03V ( 4) , 

♦ RT03W(4) ,FMU4, 8, 2) ,F M2 ( 8 , 2 1 , FM3 ( 8 , 2 I , S LOPE V , SL OPEW 

COMMON /TAPE/ MREAO, MWR ITE ,MPUNCH 
IFINREADF .GT. 0) GO TO 50 

51 READ(MRFAD,52) T2 , AM P2 F V, A MP2FW 

52 PORMAT (3E15.6 ) 

NREADF=1 

SL0PEV=(AMP2FV-AMP1FVJ /IT2-T1) 

SLCPEV>=1 AMP2FW-AMP1FW) / (T2-T1 ) 

50 IF(TIME .LE. T2) GO TO 53 

T1=T2 

AMP1FV=AMP2FV 
AMP1FW=AMP2FW 
GO TO 51 

53 AMPFV=AMP1 FV+ (TIME-Tl ) ♦SLOPE.V 
AMPF W= AMP 1FW+ ( TIME-Tl) *SL OPEW 
DO 57 1=1, NI 

57 FMECH(I)=0.0 

IFINOFTl .EQ. 0) GO TO 54 
DO 100 1=1 ,N0FT1 
NE=JELEM( I ) 

FMV=AMPFV*RTOVn ) 

FMW=AMPFW*RTOW(I ) 
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DO 101 J=1 ,8 

101 ELF{ J) =FM1 (I , J,1)*FMV+FM1 ( I, J,2) *FI^W 
100 CALL ASSEF(NE,IK,ELF,FMECH) 

5A IF(N0FT2 .EQ. 0) GO TO 55 
DO 200 1=1 ,N0FT2 
NSTAT=NSTF2( I ) 

NEND=NELF2 (I ) 

FMV=AMPFV*RT02V( I ) 

FMW=AMPFW*RT02W( I ) 

DO 201 J = 1 ,8 

201 ELF( J)=FM2( J, 1 )«F MV+FM2 < J , 2) *FMW 
DO 20 2 NM=1,NEND 
NE=(NSTAT-1)+NN 

IF(NE .GT. IK) NE=NE-IK 

202 CALL ASSEFINE, IK,ELF,FMECH) 

200 CONTINUE 

55 IF(N0FT3 .EQ. 0) GO TO 90 
DO 300 1=1 ,N0FT3 

PIE=3. 14159265 
NSTAT=NSTF3( I ) 

NEND=NELF3 (I ) 

P IEP=PIE/NEND 
FMV=AMPFV*RT03V( I I 
FMW=AMPFW«RT03W( I ) 

FMW1=0.0 

FMVI=0.0 

DO 301 NN=1,NEND 

NE=(NSTAT-1)+NN 

IF(NE .GT. IK) NE=NE-IK 

X=PIEP*NN 

FMW2=S IN(X )*FMW 

FMV2 = S IN(X )»FMV 

AFSW=( FMW1+FMW2) /2. 

BFSW= ( FMW2-FMW1) 

AFSV=(FMVl+FMV2)/2. 

BFSV= ( FMV2-FMV1) 

FMW1=FMW2 
FMV1=FMV2 
DO 302 J=lf8 

302 ELF( J)=FM2 (J, 1 )*AFSV+FM2( J ,2 ) ♦AFSW+FM3( J, 1 ) *BF SV+FM3 ( J » 2 ) *BF SW 
301 CALL ASSEFINE, IK, ELF, FMECH) 

300 CONTINUE 

90 IFINBCONO .EQ. 0) RETURN 
DO 91 I=1,NBC0ND 
JT4=N0DEB( I)*4 

FMECHI JT4-3)=0.0 

IFINBCd) .EQ. 1 .OR. NBC(I).EQ.2) F MECH IJT4-1 ) = 0.0 
IF(NBCm.EQ.2 .OR. NBC(I).EQ.3) FMECH(JT4-2)= 0. 0 

91 CONTINUE 

56 RETURN 
END 


SUBROUTINE QREM(A,AL,R) 

C TO FIND EFFECTIVE STIFFNESS MATRIX CUE TO ELASTIC RESTRAINTS 

DIMENSION A(8 ,8) ,ELR (8 ,8) , ELRR(8 ,8 } ,ELRP(8,8 ) 

COMMON /TAPE/ MREAD, MWRI TE ,MPUNCH 
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COMMON /FG/ IK,NOGA,NFL,NSFL,NI, ICCL(205), NBCOND,N eC(4 ),NODEB( 4} 

common /ELFU/ SPRIN(2060) ♦NGRP,N0RU»NREL(4) ,REX(4) , 

*NRST(4» ,NREU(4 ) 

IF (NORP . EQ. 0) GO TO 1 

READ(MREAD,2) SCTP ,SCRP , ( NREL ( I ) ,REX( I ) , 1 = 1 ,NORP> 

2 FORMAT (2E15.6/ H( 15, E15.6 ) )> 

DO 10 IQ=1,N0RP 
NE=NREL(IQ) 

SL=REXUQ) 

X=AL/R/2. 

SX=SL/R 
DO 11 1=1 ,8 
DO 11 J = l, 8 

11 ELR(I,J) = 0.0 
ELR( 1,1)=SCTP 

ELR(3, 1) = SCTP^R4(-C0S( SX)+COS(X) ) 

ELR(4, 1 )=SL*SCTP*COS (SX J 
ELRJ5,1 )=SCTP«SL**2*SI NISX) 

ELR(6, 1)=SCTP*SL**3*SIN(SX) 

ELR(2,2) = SCTP 

ELR( 3,2) = SCTP*R*S1N( SX) 

ELR(4, 2) = -SCTP*SL*SIN( SX) 

ELR(5,2)=SCTP*SL*»2*C0S(SX ) 

ELR( 6, 2) = SCTP*SL**3*C0S(SX) 

ELR(3,3)=SCTP*R**2*( l.-2.*COS{SX)4CGS(X)+COS( X)**2)+SCRP 

ELR(4,3)=-SCTP*R*SL*(l,-C0S(SX)*C0S (X) )-SCRP*SL/R 

ELR(5,3)=SCTP*R*SL**2<'SIN( SX) *COS( X )+2 .*SL*SCR P 

ELR(6,3) = SCTP*R*SL**3*SIN (SX)*C0S(X)+3.»SL**2*SCRP 

ELR( 4,4) = SCTP^SL**2+SL**2*SCRP/R«'^2 

ELR{5,4) = -2.*SL**2*SCRP/R 

ELR(6,4)=-3.*SL4*3*SCRP/R 

ELR( 5, 5) = SL**4*SCTP+-4. ♦SL**2«SCRP 

ELR(6, 5)=SL**5*SCTP+6.*SCRP*SL»*3 

ELR( 6,6) = SL**64SCTP+9.*SL**4*SCRP 

ELR(7, 1)=SCTP«SL**2*C0S(SX) 

ELR(8,1 ) = SCTP*SL**3*C0S(SX ) 

ELR(7,2)=-SCTP*SL**2*SIN( SX) 

ELRI8, 2) = -SCTP«SL**3*SIN( SX) 

ELRl 7,3)=-R4 (1--C0S(SX )*COS( X ) ) *SCTP*SL**2-SL«»2*SCRP/R 

ELR{ 8, 3)=-R^( l.-C0S( SX )«COS( X) ) *SC TP*SL**3-SL**3*SCRP/R 

ELR(7,4)=( SCTP+SCRP/R**2) ♦SL**3 

ELR( 8,4) = ( SCTP+SCRP/R*^2) *SL**4 

ELR(7, 5) = -2.*SL4^3*SCRP/R 

ELR18,5)=-2.*SL4*4*SCRP/R 

ELR( 7,6)=-3,*SL*^4*SCRP/R 

ELR(8,6) = -3.^SL**5*SCRP/R 

ELR(7,7)=ELR{8,4) 

ELR( 8, 7)= ( SCTP+SCRP/R*«2) ♦SL^^S 
ELR(8, 8)= ( SCTP+SCRP/R**2) ♦SL**6 
DO 12 1=1,7 
IP1=I + 1 
DO 12 J=IP1,8 

12 ELR( I , J)=ELR( J ,I ) 

DO 13 1=1,8 

DO 13 J=1 ,8 
ELRRd ,J)=0.0 
DO 13 K=l,8 

13 ELRRd, J) = ELRR{I, J)+ELR(I,K)*ACK, J ) 

DO 14 1=1,8 
DO 14 J=l,8 


112 



ELRP( I , J) =0.0 
DO 14 K=l,8 

14 5ELRP( I » J) =ELRP( I , J)+A (K» I )*ELRR(K,J) 

10 CALL ASSEM(NE,IK,ELRP,SPRIN,ICOL,NI) 

1 IF(N0RIJ .EQ. 0) GO TO 31 

RE AD(MREAD,3) SC TU ,SCR U t ( NRST ( I ) ,NPEU( I )t I=1,N0RU) 

3 F0RMAT(2E15.6,8I5) 

DO 4 1=1,8 

DC! 4 J = l,8 

4 ELR(I,J) = 0.0 
X=AL/R/2. 

P2=2.*X**2»SI N(X)+4.«X*C0S (X)-4.*S IN(X) 

P3=-2.*X*«3*COS( X)+6 .♦X*«2«S INC X )+ 12.«X*C0S( X) -12. ♦ SI N ( X) 

ELRCl ,1) = SCTU*AL 
ELRC 2, 2)=SCTU*AL 

ELRC3, 1 ) = SCTU+R*(-R<'2.»SIN(X)+C0S( X)*AL) 

ELRC 3,3 > = SCTU*R**2*( AL + COS CX ) =*'*2* A L-2 . *R*S INC 2 .*X) )+SCRU«AL 
ELRC4, 2) = -SCTiJ#R**2*C-2.*X*COSCX) + 2.<'SINCX) ) 

ELRC4,4)=C SCTU+SCRU/R=«'*2) *AL*«3/12 . 

ELRC 5, 2J = SCTU=*R*«3«P2 
ELRCS, 4) = -SCRIJ*AL**3/C 6.*R ) 

ELRC 5,5 >=SCTU*AL=i'*5/80.+SCRU*AL**3/3. 

ELRC 6, 1) = SCTU*P>*4<‘P3 

ELRC 6, 3 ) = SCTU*R**5’«'C0S C X ) *P3+SCRU=«‘AL««3/4. 

ELRC 6, 6) = SCTU*AL**7/44 8. + 9 .*SCRU*AL*«5/80. 

ELRC7, 1 )=SCTU*R=!'<'3*P2 

FLRC7,3 > = -SCTU«R«C AL**3/12.-R«*3*C0SCX)»P2 )-SCRU*AL<'*3/C 12. *R) 
ELRC 7,6)=-3.*SCRU*AL**5/C R*80.) 

ELRC7, 7)=C SCTU+SCRU/R**2) ♦AL*’e=5/80. 

E LRC 8,2)=-SCTU4R«*=4»P3 
ELRC 8, 4) = ELRC 7,7) 

ELRC 8, 5 ) = -SCRU4AL*«5/C40.*R) 

ELRC 8, 81 = C SCTU+SCRU/R»*2) ♦AL**7/44 8. 

DO 5 1 = 1,7 

TP1=I+1 

DO 5 J=TPl,8 

5 ELRC I, J)=ELRC J,I ) 

DO 6 I =1 , 8 

DO 6 J = l,8 
ELRRC I, J)=0.0 
DO 6 K=l,8 

6 ELRRCI ,J) = ELRR(I,J) + ELRCI ,K)*ACK,J) 

DO 7 1=1,8 

DO 7 j=i,a 
ELRPCI,J) = 0.0 
DO 7 K=l,8 

7 EL RPC I ,J) = ELRPCI , JM-ACK,! )*ELRRCK, J) 

DO 20 IQ=1,N0RIJ 

NSTAT = NRST CIO) 

NEND=NREUC 10) 

DO 21 NN=1,NEND 
NE=CNSTAT-1 )+NN 
JFCNE .GT. IK) NE=NE-IK 
21 CALL ASSEMCNE, IK,ELRP,SPRIN,ICOL,NI ) 

20 CONTINUE 

31 IFCNBCOND .EQ. 0) RETURN 

DO 91 I=1,NBC0ND 
JT4=N0DEBC 1)44 
JT4M3=JT4-3 
JT4M2=JT4-2 


113 



o r> 


JT4M 1=JT4-1 

CALL ERC( JT4M3,SPR IN,NI,ICOL ) 

IF (NBC ( I ) . EO. 1 .CR. NBC(I).EQ.?) CALL ERC ( JT4M 1, SPR IN , NI , I COL ) 
IF (NBC ( I) . EQ.2 .OR. NBC(I).E0.3) CALL ERC ( JT4M2, SPRIN, NI , I COL) 
91 CONTINUE 
RE TURN 
END 


SUBROUTINE STRESS 

TO EVALUATE GENERALIZED NODAL LOAD VECTOR DUE TO LARGE DEFLECTION 
AND ELASTIC-PLASTIC STRAIN 

01 MENS ION ELF P (8 ), BE PS (3) , CEPS (3 ,3) ♦ B I NPW ( 3 ) , B IMPW ( 3 ) » HWB( 3,3) , 
♦PN(8),PM(8) ,HNL(8) ,3INPP(3) ,8IMPP(3) 

COMMON /FG/ I K, NOG A, NFL,NSFL,NI, IC OL (2 05 ) , NBCOND, NBC ( 4 ) ,N0 D£B( 4) 
COMMON /HM/ R,3,H,0ENS,Y0UNG,DS,C5,C6,ASFL(6,5) ,G ZETA ( 6 ) ,SN 0 ( 5 ) 
COMMON /VO/ FLVAI 205) , DISP(205),DELD( 205) , SNS( 50,3,6,5) , 

*BI N P( 50,3) , PIMP (50,3) ,SNP( 50, 3,6,5) 

COMMON /BA/ BEP(3,3,8) ,AXG(3),AWG(3) 

DO 502 IR=1, IK 
DO 503 J=1,N0GA 
BINP( IP, J )=0. 

BIMPI IR, J)=0. 

BI NPP( J)=0.0 
3I MPP( J) = 0.0 
202 DO 402 1=1 ,3 
REPS( I )=0. 

DO 4 02 K=l,8 
INOEX=( IR-1)*4+K 

402 REPS( I ) = BEPS( I ) + BEP( J, I ,K ) ♦DELD ( INDEX) 

C,EPS( J ,1 )=0.0 

CFPS( J ,2) = 0.0 
DO 403 K=l,8 
INDEX= ( IR-1 )«4+K 

CEPS( J ,1) =CEPS( J,1) + BEP(J , 1,K)*D ISP (INDEX) 

403 CEPS(J,2) = CEPS(J,2) + REP(J,2,K)*DISP(INDEX) 

205 FARE=BEPS( 1)+CEPS( J,2) 48EPS(2)-BEPS(2)**2/2. 

FCUR=BEPS( 3) 

DO 151 K=1.,NFL 
BFNP = 0. 

BFNPP=0.0 

BEPX = FARE+GZETA(K ) ♦FCUR 

IF(DS.GT. 0.0) RFACTR=1.+ (C6*ABS(BEFX) )»*C5 

DO 35 L=1,NSFL 

DESNP=0.0 

SNS( IR ,J,K,L) =SNS( IR , J , K, L )+ YOUNG* BEPX 

IF(DS.EQ. 0.0) GO TO 255 

IF (SNS (IR, J,K,L)-SNO(L ) )30,301,91 

91 SNY=SNO(L)*RFACTR 
IF(SNS(IR, J,K,L)-SNY)301,301,20 

2C DESNP=SNS(IR, J,K,L)-SNY 

SNS( IR ,J,K ,L ) = SNY 
GO TO 301 

30 IF (SNS( IR , J,K,L)+SNO(L) )92 ,301,301 

92 SNY=SNO(L ) *RFACTR 

IF (SNS (IR, J,K,U+SNY)40,301,301 
40 DESNP = SNS( IR, J,K,L)+SNY 
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SNS{IR»J,K,L)=-SNY 
GO TO 301 

255 IF(SNS(IR, J,K,L)-SNO(D) 18,301,17 

17 DESNP=SNS( IR, J,K,L)-SNO(L) 

SNS{ IR,J,K,L) = SNO(U 

GO TO 301 

18 IF (SNS( IR, J,K,L) + SNO(L) ) 19, 301,301 

19 DESNP=SNS( IR, J,K,U + SNO(L ) 

SNS(IR,J,K,L)=-SNOIL) 

301 BFNP=BFNP+SNS( IR, J,K,L)*ASFL(K,L) 

SNP( IR,J,K,L) = SNP( IR ,J,K,L l+OESNP 
BFNPP=BFNPP+SNP( IR,J,K,L)*ASFL{K,L) 

35 COMTINUE 

RINPI IR, J )=BINP{ IR,J)+BFNP 

BIMPI IR, J) =81 MP( IR,J)+RFNP*GZETA(K) 

BINPPI J )=8 INPPI J )+BFNPP 
6IMPP(J) = BIMPP(J) + BFNP P«G Z ET A I K ) 

151 CONTINUE 

503 CONTINUE 

1C7 DO 101 J=1,N0GA 

BINPWI J )=( YOUNG*B«H*CEPS( J ,2) **2/2 . -BI NPP ( J) )«AWG( J) 

BTMPWI J) = -BIMPP( J) *AWG( J) 

HWB( J,2)=( Y0UNG*8*H*(CEPS I J , 1 )+C EPS ( J , 2 )**2/2 . )-BINPP( J))* 
*CEPS( J, 2)*AWG( J ) 

101 CONTINUE 

DO 102 1=1,8 
PN(I ) = 0. 

PM(I )=0. 

HNL( I)=0,0 
DO 102 J=1 ,NOGA 

PN(I ) = PN(I )+BEP( J,l, I)*BI NPW( J) 

PM(I ) = PM( I )+3£P( J, 3, n*8IMPW( J) 

102 HNU n=HNL (I )+BEP( J. 2. I )*HW8( J,2) 

200 DO 105 1 = 1 ,8 

105 ELFPI I ) = PN (I )+PMU ) + HNL( I ) 

502 CALL ASSEF (IR , IK, ELFP, FLVA ) 

RETURN 

END 


SUBROUTINE ERC ( I I , ST I F M, N I , ICOL ) 

C FOR ELIMINATING ROWS AND COLUMNS IN STIFM 

DIMENSION STIFM(l) ,IC0L(1 ) 

IC = ICOL( II ) 

DO 101 J=IC,II 
CALL FICOLI II , J,L,ICOL) 

101 STIFM(L)=0. 

DO 102 I=II,NI 
ICl=ICOL( I ) 

IF( II-ICl) 102, 103, 103 

103 CALL FICOLI I,I I ,L, ICOL) 

STIFM(L)=0. 

102 CONTINUE 
CALL FICOLI II , I I,L, ICOL ) 

STIFM(L)=1. 

RETURN 
END 
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SUBROUTINE FAC ( ST IFM, NCOL ,KROW, NOEX, I DET, NTAP E6,NR0WS tNIRREG, 
LOWER triangular FACTOR OF STIFM MATRIX IS COMPUTED AND STORED 
DIMENSION STIFM(l) ,NCOL( 1) ,KROW( 1) ,NDEX( 1) , IC( 1 ) 

ST I FM 

PROCESS COLUMN 1 
1=1 


IC) 

FACT0095 

FACTOlOO 
FACT 0105 


IDET=0 FACTOllO 

IF (STIFM(D) 152, 122,101 

IDET=I0ET+1 

INDEX=0 


IR0W=1 
TEST=1 .0 
KN = 1 

DO 103 I = 2,NR0WS 
KN = KN+I-NCOL( 1 ) 

IF (NCOLm-n 103,102,103 

STIFM(KN»=STIFM(KN)/STIFM( 1) 

CONTINUE 

DO 121 I = 2,NR0WS 

IP1=I+1 

IM1=I-1 

SUM=0.0 

NCK=0 

II I=NCOL(I ) 

INDEX=INDEX+I-I II 
IF (IMl-Iin 150,140,140 
DIAGONAL TERMS 
DO 104 J= I I I, IMl 
IJ=INDEX+J 

SUM=SUM+STIFM( IJ)*STIFM( IJ ) *STIFM(IC 

II=INDEX+I 

SUM = STIFM( I I)-SUM 

IF (SUM) 151,122,105 

IOET= I DET +1 

TES= ABS( SUM/STIFM( II ) ) 

IF (TES-TEST) 106,107,107 

TEST=TES 

IROW= I 


FACT0130 
FACT0135 
FACTO 140 
FACT 0145 
FACT0150 
FACTO 155 
FACT0160 
FACT0165 
FACT0170 
FACT0175 
FACT 0180 
FACT0185 
FAC TO 190 
FACTO 195 
FACT0200 
FACT0205 
FACT0210 
FACT0215 
FACT 0220 

FACT0230 

FACT0235 


FACT0250 
FACT0255 
FACT 0260 


ST1FM(II)= SUM 

OFF DIAGONAL TERMS 

IF (I-NROWS) 108,121,121 

KNDEX=INOEX 

DC 116 K=IP1,NR0WS 

KK=NCOL(K) 

KNDEX=KNDEX+K-KK 

SUM=0.0 

IF (KK-III) 110,130,130 
KK = II I 

IF (IMI-KK) 112,131,131 
DO 111 J=KK,IM1 
IJ=INDEX+J 
KJ=KNDEX+J 


FACT0270 
FACT0275 
FACT0280 
FACT0285 
FACT0290 
FACT0295 
FACT 0300 
FACT0305 
FACT0310 
FACT0315 
FACT0320 
FACT0325 
FACT0330 


SUM=SUM+STIFM( IJ) *STI FM (KJ ) *ST IFM ( I C (J ) +J ) 
IF (I-KK) 114,115,115 
IF (NIRREG .LE. 0) GO TO 121 


116 


FACT0340 

FACT0345 


non 


IF (NIRREG .GT. NROWS /2) GO TO 116 
GO TO 190 

115 KI=KNDEX+I 

STIFM(Kn=J STIFMIKI )-SUM ) / STI FM( 1 1) 

116 CONTINUE 
GO TO 121 

190 NCK=NCK+1 

IF (NIRREG .LT. NCK) GO TO 121 
IP1=KR0W(NCK) 

IF (I .LT. NCOLdPin GO TO 190 
IF (IPl .LT. K) GO TO 190 
KNDEX=NDEXl NCK ) 

GO TO 109 
121 CONTINUE 
RETURN 

12 2 WRITE (NTAPE6,1001 ) I 
IDET=-I 

1001 FORMAT (37H1 MATRIX NOT POSITIVE DE F 
WRITE (NTAPE6, 1002) SUM 

1002 FORMAT (27H0S0UARE OF DIAGONAL TERM = 
1 ED K MATRIX ,// ) 

RETURN 

END 


FACT0355 
FACT0360 
FACT 0365 
FACT0370 
FACT0375 
FACT0380 
FACT0385 
FACT0390 
FAC TO 395 
FACTOAOO 
FACT0A05 
FACT0410 
FACT0A15 
FACT0A35 
FACT0A40 

ITE IN ROW, 14) FACT0450 

FACT0455 

, E15. 8, /28H0PARTIALLY FACTORF ACT0460 

FACT0465 

FACT0470 


SUBROUTINE FICQL( I , J, L, ICOL ) 

C USING FORMULA L = J + SUM ( K-ICGL( K I) , K= 1 , 1 TO RELATE 1,J,T0 L 

DIMENSION ICOL(l) 

IF( J-ICOL( I ) >200,300,300 
300 ISUM=0 

DO 305 K=1,I 
ISUM=K-ICDL (K)+ISUM 

305 CONTINUE 
L=J+I SUM 
RETURN 

200 WRITE16,4) I,J 

4 FORMATOIH ELEMENT IS NOT IN BAND REGION, 3H I=,I5,3H J=,I5) 
RETURN 
END 


SUBROUTINE MI NV( A, N, DE T ,L , M) 
C INVERT MATRIX A 

DIMENSION Ad ) ,L(1 ),M(1 ) 

SEARCH FOR LARGEST ELEMENT 


DET=1.0 
NK = -N 

DO 80 K=1,N 
NK = NK+N 
L(K)=K 
M(K) = K 
KK=NK+K 


MINV 053 
MINV 054 
MINV 055 

MINV 057 
MINV 058 
MINV 059 
MINV 060 
MINV 061 
MINV 062 
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BIGA=A(KK) 

MINV 

063 


on 20 J=K,N 

MINV 

064 


I2=N*( J-1) 

MINV 

065 


00 20 I=K,N 

MINV 

066 


TJ=IZ+I 

MINV 

067 

0 

1F( ABS(BTGA)- ABS C A ( IJ) ) ) 15 , 20 ,2 0 



15 

flIGA=A( IJ) 

MINV 

069 


L( K)=I 

MINV 

070 


M( K) = J 

MINV 

071 

20 

CONTINUE 

MINV 

072 



MINV 

073 


INTERCHANGE ROWS 

MINV 

074 



MINV 

075 


J=L(K) 

MINV 

076 


IFIJ-K) 35,35, 25 

MINV 

077 

25 

KI =K-N 

MINV 

078 


DO 30 I=1,N 

MINV 

079 


KI=KI+N 

MINV 

080 


H0LD=-A( KI ) 

MINV 

081 


JI=KI-K+J 

MINV 

082 


A(KI)=A(JI ) 

MINV 

083 

30 

A(JI) =H0Ln 

MINV 

084 



MINV 

085 


INTERCHANGE COLUMNS 

MINV 

086 



MINV 

087 

35 

I=M(K ) 

MINV 

088 


IF(I-K) 45,45,38 

MINV 

089 

38 

JP = N=«'( I-l ) 

MINV 

090 


on 40 J=1 ,N 

MINV 

091 


JK = NK+J 

MINV 

092 


JI = JP+J 

MINV 

093 


H0L0=-AUKI 

MINV 

094 


A{ JK)=A(JI ) 

MINV 

095 

40 

fl(JI) =H0LD 

MINV 

096 



MINV 

097 


DIVIDE COLUMN BY MINUS PIVOT (VALLE OF PIVOT ELEMENT IS 

MINV 

098 


CONTAINED IN BIGA) 

MINV 

099 



MINV 

100 

45 

IF(BIGA) 48,46,48 

MINV 

101 

46 

DE T =0 . 0 




RETURN 

M INV 

103 

48 

DO 55 1 = 1 , N 

MINV 

104 


IF(I-K) 50,55,50 

MINV 

105 

50 

IK = NK + I 

MINV 

106 


A( IK) = A( IK )/(-BIGA| 

MINV 

107 

55 

CONTINUE 

MINV 

108 



MINV 

109 


REDUCE MATRIX 

MINV 

110 



MINV 

111 


CO 65 1=1, N 

MINV 

112 


IK=NK+I 

MINV 

113 


HOLD=A( IK) 

MINV 

MOl 


IJ= I-N 

MINV 

114 


DO 65 J=] ,N 

MINV 

115 


IJ= TJ+N 

MINV 

116 


IF(I-K) 60,65,60 

MINV 

117 

50 

IF(J-K) 62,65, 62 

MINV 

118 

62 

KJ= IJ-I+K 

MINV 

119 


A( I J)=HOLn* A(KJ) + A( IJ) 

MINV 

M02 

65 

CONTINUE 

MINV 

121 


118 


ooo oon non ooo 




MINV 

122 


DIVIDE ROW BY PIVOT 

MINV 

123 



MINV 

124 


KJ=K-N 

MINV 

125 


DO 75 J = ltN 

MINV 

126 


KJ=KJ+N 

MINV 

127 


IF(J-K) 70,75, 70 

MINV 

128 

70 

A(KJ)=A(KJ )/BIGA 

MINV 

129 

75 

CONTINUE 

MINV 

130 



MINV 

131 


PRODUCT OF PIVOTS 

MINV 

132 



MINV 

133 


DET-DET+BIGA 





MINV 

135 


REPLACE PIVOT BY RECIPROCAL 

MINV 

136 



MINV 

137 


A(KK)=1.0/aiGA 

MINV 

138 

SO 

CONTINUE 

MINV 

139 



MINV 

140 


PINAL ROW AND COLUMN INTERCHANGE 

MINV 

141 



MINV 

142 


K=N 

MINV 

143 

100 

K= ( K- 1 ) 

M INV 

144 


IF(K) 150, 150, 105 

MINV 

145 

105 

I=L(K) 

MINV 

146 


IF(I-K) 120,120,103 

MINV 

147 

108 

JQ=N*(K-1 ) 

MINV 

148 


JR=N#(I-1) 

MINV 

149 


CO 110 J=1,N 

MINV 

150 


JK=JO+J 

MINV 

151 


HOLD=A( JK) 

MINV 

152 


J1 = JR+J 

MINV 

153 


A( JK) =-A( JI ) 

MINV 

154 

110 

A(JI) =HOLO 

MINV 

155 

120 

J=M(K) 

MINV 

156 


IF(J-K) 100,100,125 

MINV 

157 

125 

KI=K-N 

MINV 

158 


DO 130 1=1 , N 

MINV 

159 


KI=KI+N 

MINV 

160 


HOLD=A(K I ) 

MINV 

161 


JI=KI-K+J 

MINV 

162 


A(K I) =-A( J I ) 

MINV 

163 

130 

A(JI) =HOLD 

MINV 

164 


GO TO 100 

MINV 

165 

150 

RETURN 

MINV 

166 


END 




SUBROUTINE OMULT ( SQVCT , RW VCT , NCOL, NROW S , AC C , KR OWf NDE X , NI RR EG) 
C TO FINO ACC OF ( SQVCT )» (RW VCT )=( ACC ) 

DIMENSION SOVCT( 1) ,RWVCT( 1) ,NCOL( 1) ,ACC(l) ,KROW(l) ,NOEX(l) 

IN0EX=0 

NRCWM=NROWS-l 

IF (NIRREG .GT. 0) GO TO 200 
C HIGH SPEED PRODUCT FOR REGULAR MATRICES 

DO 100 NN=1,NRCWM 
SUM=0.0 


119 


I P1=NN+1 
KST=NCOL(NN) 

INDEX= INOEX+NN-KST 
DO 101 KPL=KST,NN 
IJ=INDEX+KPL 

101 SUM=SUM + SQVCT ( IJ)*RWVCT(KPL) 

C NOW FOR THE COLUMN ELEMENTS 

JNDEX=IJ 

DO 102 KPL=I PI jNROWS 
IF(NN.LT.NCOL(KPL) )G0 TO 100 
JNDEX = JNDEX+KPL-NCOL (KPL) 

102 SUM=SUM+SOVCT ( JNDEXJORWVCT (KPL) 

100 ACC(NN)=ACC(NN)+SUM 

C NOW FOR THE LAST ROW 

lOA KADD=NCOL( NROWS) 

SUM=0.0 

I NOEX= INDEX+NRGWS-KAOO 
DO 103 KPL=KADD, NROWS 
IJ=INDEX+KPL 

103 SUM=SUM+SQVCT nj)^RWVCT(KPL) 
ACC(NROWS)=ACC(NROWS)+SUM 
RETURN 

C MEDIUM SPEED PRODUCT FOR NIRREG .LE. NROWS/2 

200 IF (NIRREG .GT. NROWS/2) GO TO 201 
DO 105 NN=ltNROWM 

IP1=NN+1 

KST=NCOL(NN) 

INDEX= INDEX+NN-KST 
SUM=0.0 

DO 106 KPL=KST,NN 
IJ=INDEX+KPL 

106 SUM=SUM+SOVCT( IJ)*RWVCT(KPL) 

NCK=0 

JNDEX=IJ 

107 DO 108 KPL=IP1 , NROWS 

IFINN .LT. NCQL(KPD) GO TO 109 
JNOEX= JNDEX+KPL-NCOL (KPL) 

108 SUM=SUM+SQVCT{ JNDEX)«RHVCT(KPL) 

GO TO 105 

109 NCK=NCK+1 

IF (NCK .GT. NIRREG) GO TO 105 
IF (KPL .GE. KROW(NCK)) GO TO 109 
I P1=KR0W(NCK) 

JNDEX=NDEX(NCK )+NN 
GO TO 107 

105 ACC(NN)=ACC(NN)+SUM 
GO TO 104 

201 DO 503 NN=1,NRCWM 
IP1=NN+1 
K=NCOL(NN) 

INDEX=INDEX+NN-K 
SUM=0.0 

DO 502 KRX=K,NN 
IJ=INDEX+KRX 

502 SUM=SUM+SQVCT( IJ)*RWVCT(KRX) 

JNDEX=IJ 

DO 504 KRX=I PI , NROWS 
K = NCOL(KRX ) 

JNDEX=JNDEX+KRX-K 
IF (NN .LT. K) GO TO 504 
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SUN=SUM+SQVCT ( JNOEXJ^RWVCT (KRX) 
50A CONTINUE 
503 ACCl NN) = ACC(NM )+SUM 
GO TO lOA 
END 


SUBROUTINE SOLV ( ST IFM , G,S OL, NCOL ,K RCW, NDEX , NRO WS, N IRRE G) 
C SOLVE (LL*) (SOL)=(FORCE» FOR DISPLACEMENTS (SOL) 

DIMENSION STIFM(1),G( 1) ,S0L(1), NCOL ( 1 ) ,KRO W( 1) tNDEX( I ) 

C INTERMEDIATE SOLUTION USING THE LOWER TRIANGLE 

100 INDEX=0 
SOL (1 ) = G(1 ) 

DO 104 I=2,NR0WS 
IM1=J-1 
SUM=0.0 
K = NC0L( I ) 

INDEX= INDEX + I-K 
IF (IMl-K) 103,101,101 

101 DO 10 2 J = K,IM1 
IJ=INDEX+J 
SU=SOL( J) 

102 SUM=SUM+ST I FM( IJ) *50 

103 II = INDEX+I 

104 SOL (I )= G( I )-SUM 
SOL CONTAINS THE INTERMEDIATE SOLUTION 
COMPLETE THE SOLUTION USING THE UPPER TRIANGLE 
SOL (NROWS) = SOL (NROWS) /STIFMd I ) 

INnEX=INDEX-NROWS+NCOL (NROWS) 

IF (NIRREG .GT, 0) GO TO 111 
DO 109 KK=2,NR0WS 
I=NR0WS+1-KK 
IP 1 = 1 + 1 
SLIM=0,0 
JNDEX=INDEX+I 
DO 107 J=IP1,NR0WS 
K=NCOL ( J ) 

IF (I-K) 1 08,105,106 

106 JNDEX=JNDEX+J-K 
SU=S0L( J) 

107 SUM=SUM+STI FM( JNDEX)*SU 

108 II=INDEX + I 

SOL(I)= SOLin/STIFM (ID-SUM 

109 INDEX=INDEX-T+NCOL( I) 

RETURN 

111 IF (NIRREG-NROWS /2) 116,116,112 

C TOO MANY IRREGULAR ROWS FOR ACCELERATED SOLUTION 

112 DO 115 KK=2,NR0WS 
I=NR0WS+1-KK 
IP1 = I + 1 
JNDEX= INDEX+I 
SUM=0.0 
JN0EX=INDEX+I 
CO 114 J=IP1,NR0WS 
K=NCOL( J) 

JN0EX=JNDEX+J-K 
IF (I-K) 114,113,113 


121 


113 


SU=SOL(J) 

SUM=SUM+STI FM( JNDEX)*SU 

114 CONTINUE 
II=INDEX+I 

SOL(I)= SOL(I) /STIEMUI ) -SUM 

115 INDEX=INDEX-I+NCOL ( n 
RETURN 

C ACCELERATED SOLUTION FOR CASE WITH IRREGULAR ROWS 

116 DO 125 KK=2,NROWS 
I=NROWS+l-KK 

IP1 = I+1 
SUM=0.0 
NCK=0 

JNDEX=INDEX+I 

117 DO 119 J=IPl,NROWS 
K=NCOL( J) 

IF (I-K) 120,118,118 

118 JND5X = JNDEX+J-K 
SU=SOL( J) 

119 SUM=SUM+STI FM( JNOEX)*SU 
GO TO 124 

120 NCK=NCK+1 

IF (NIRREG-NCK) 124,121,121 

121 IP1=KR0W(NCK) 

IF (I-NCOL ( IPl ) ) 120, 122,122 

122 IF (IPl-J) 120,123,123 

123 JNOEX=NDEX(-NCK) +I 
GO TO 117 

124 II=INDEX+I 

SOL(I)= SCL(I) /STIFMdl ) -SUM 

125 INDEX=INOEX-I+NCOLm 
RETURN 

END 
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5.3 JET 3C; Variable Thickness Arbitrarily Curved Ring; 


Timewise Central-Difference Operator 


The JET 3C consists of the following main programs and subroutines: 


1. JET 3C MAIN PROGRAM 

2. ASSEM 

3. ASSEF 

4. I DENT 

5. IMPULS 

6. PRINT 

7. JET 3C main program 

8. ASSEM 

9. ASSEF 

10. IDENT 

11. IMPULS 

12. PRINT 

13. ■ ELMPP 

14. STRESS 

15. LOADEQ 

16. LOADFT 

17. QREM 

18. ERC 

19 . FAC 

20. FICOL 

21 . MINV 

22. OMULT 

23. SOLV 

24. TSTEP 


(partial ring) 


(complete ring) 


The subroutines in items 13 through 24 are common to each of the two groups 
of "control programs". 

The number of memory locations required is approximately 204,000 bytes. 
The subroutines ERC, FAC, FICOL, MINV, OMULT, and SOLV (No. 18 through No. 23) 
are the same as those listed in Subsection 5.2. To avoid needless repetition, 
only the main programs and subroutines No. 1 through No. 17 and No. 24 are 
listed in this subsection. 
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JET3C MAIN PROGRAM FOR VARIABLE THICKNESS ARBITRARILY CURVED RING 
JET3C CENTRAL DIFFERENCE OPERATOR 
PARTIAL RING **^**^* 

01 ME NS I ON AMASS (2060) , AA( 5 0, 8 , 8 ) , T XG ( 6 ) , T WG ( 6 ) , ES ( 6 ) , GFL{ 5 0, 3, 6) , 
*SOL (20 5 ) , INUM( 205 ) , FMECH ( 2 05) ,HHALF ( 50) ,KROW( 8 ) ,NDEX(8 ) , 

♦ BM ASS (2060) ,EPS(5),SIG(5) 

COMMON /TAPE/ MREAD, MWR IT E ,MPUNCH 

COMMON /FG/ IK.NOGA, NFL,NSFL,NI , ICOL(2 05> , NBC0ND,N8C ( 4) ,N00EB(4) 
♦,Y(5l) ,Z(51),ANG(5l),H(51) 

COMMON /HM/ Y0UNG,0S,C5,C6,ASFL ( 50 . 3, 6 ,5 ) , GZET A( 50 , 3 , 6 ) , SNQ ( 5 ) 
COMMON /VQ/ FLVA(205),DISP(205),DELD(205),SNS( 50,3,6,5), 

♦ BINP( 50,3) ,8IMP(50,3) 

COMMON /BA/ BEP( 50,3,3 ,8) ,AL( 50) ,AXG(3) ,AWG( 3) 

COMMON /SC/ MCRIT, GRITS, BIG, IBIG,BTIME,ISURF 

COMMON /FORCE/ T 1 , AM P 1 FV, AMPIFW, T2 , AMP2F V , AMP2 FW , S LOPE V, SLOPEW , 

♦ AMPFV,AMPFW,N0FT1,N0FT2 ,NDFT3, JELEM(4), ETA( 4) ,RTOV( 4) ,RTOW( 4) , 
♦NSTF2(4) ,NELF2 ( 4) ,RT02V(4) ,RT02W(4) , NST F3 ( 4 ) , NE LF 3 ( 4 ) , RT03V ( 4 ) , 

♦ RT03W(4) ,FM 1( 4, 8, 2) ,FM2 ( 2, 4 , 8, 2 ) , FM 3A( 2 , 4, 8 , 2 ) , FM3B ( 2 , 4 , 8 , 2 ) 

COMMON /ELFO/ SPR I N ( 2060 ) , FQREF ( 20 5 ) , NQR, NORP, NO RU , NREL ( 4 ) , 
♦REXI4) ,NRST (4) ,NREU(4) 

MREAD=5 
MWRI TE=6 
MPUNCH=7 

RE AD ( MREAD, 1) B, DENS , I K ,N OGA , NFL , NS FL , MM, M 1 , M2 

IKPl=IK+l 

PIE=3. 14159265 

RE AD (MREAD, 11 ) (Y( I) ,Z ( I) , ANGd ) , H ( I ) , 1= 1 , IKP 1 ) 

II F0RMAT(4E15.6) 

DO 111 I=1,IKP1 

III ANG( I )=ANG(I) *PIE/180. 

READ (MREAD, 2) DEL T AT , C R IT S ,0 S, P , ( E PS( L ) , SI G ( L) ,L=1 ,NSFL) 

1 FORMAT (2E15. 6/715) 

2 F0RMAT(4E 1 5.6/(4E15.6) ) 

READ(MR£AD,3) ( AXG( K ) , K= 1, NOGA ) 

READ(MREAD ,3) (AWG(K) ,K=1,NGGA) 

RE AD (MREAD, 3) (TXG(K) ,K=1, NFL ) 

READ (MREAD, 3) (TK G ( K) , K= 1 , NFL ) 

3 FORMAT(4F15.10) 

NI=IKP1*4 

RE AO (MREAD ,4) NBCONO, ( NBC ( I), NODES I I), 1 = 1, NBCOND) 

4 F0RMAT(9I5) 

R£AD(MREAD,9 ) NQR , NORP , NO RU 

9 F0RMAT(3I5) 

CALL lOENT (B, DENS, NQR) 

DO 70 IR=1,IK 
DO 70 J=1,N0GA 

RH=H( IR)^( l.-AXG( J ) ) +H( IR + 1)«AXG( J) 

DO 70 K=1 ,NFL 

GFL( IR,J,K )=RH*TWG(K)*a/2. 

TO GZETA( IR, J ,K)=RH*TXG(K )/2. 

ES(1 )=SIG( 1)/EPS(1) 

IF(NSFL-l) 77, 77,76 

76 DO 78 L=2,NSFL 

78 ES(L) = (SIG(L)-STG(L-1) ) /( E PS ( L ) -E P S (L-1 ) ) 

77 ES (NSFL+1 )=0.0 
DO 79 L=1 ,NSFL 

79 SN0(L) = ES ( 1)»EPS( L) 

YOUNG=ES ( 1 ) 

DO 71 IR=1,IK 
DO 71 J=1,NGGA 
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DO 71 K = 1,NFL 
00 71 L=1,NSFL 

71 ASFL{IR,JfK,U=GFL(If<,J,K)«{ES(L)-ES(L + l) )/ES( 1) 

DO 73 IR=1,IK 

73 HHALF( IR)=(H( IR+1)+H( IR))/2./2. 

DO 15 1=1,8 

15 IC0L(I) = 1 

DO 16 1 = 3, IKPl 
IK4=I*^ 

IK3= IK4-1 
IK2=IK4-2 
1K1= IK 4-3 
JJ=C I-i)*4-3 
ICOL( IKl) =JJ 
ICQU IK2)=JJ 
ICGL( IK3)=JJ 
ICOL ( IK4) = JJ 

16 CONTINUE 
INUM( 1 1=1 

DO 99 1=2, NI 

99 INUMII )=I-IC0L(I-1)+INUM(I-1) 

DO 990 1 = 1, NI 

990 INUMd )=INUM( n-ICOL(I ) 

NIRREG=0 

IN0EX=0 

ISET=1 

DO 116 1 = 1 ,NI 
L=ICOL( I) 

IF(ICQL(I )-ISET)117, 116,1 19 
119 IS£T=ICOL(I) 

GO TO 116 

117 NIRREG=NIRR£G+1 

IF(NIRREG-NI/2)711 ,711 ,90 
711 KROW (NIRREG)= I 

NOEX(NIRREG)=IND£X 
116 INDEX=INDEX+I-L 
90 CALL F ICOL (NI ,NI ,L, ICOL ) 

I SIZE=L 

WRITEIMWR I TE, 17) L 

17 FORMAT!/, • SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX =*,I5) 

CALL ELMPPI AMASS ,DELTAT,AA,ISIZE,KRDW,NDEX,NIRR£G, INUM, 
*DENS, YOUNG, BMASS) 

IF (NQR .EQ. 0) GO TO 22 
DO 23 L=1 , ISI ZE 

23 SPRIN(L) = 0.0 

CALL QREM( AA,AL, AXG,AWG1 
DO 24 1=1, NI 

24 FQREF(I)=0.0 

22 IF(DS.EQ.O.O) GO TO 21 

C5=l./P 

C6=1./DS/DELTAT 

21 DTSQ=DELTAT««2/(DENS<=B*0. 1 ) 

C2=D£NS*B*0.1/ (2.«DELT AT**2) 

MCRI T=0 
BIG=10.<'*(-10 ) 

IB1G=0 

IT=0 

TIME=0.0 

CALL IMPULSIDELTAT, AL) 

RE AD (MR FAD, 5) TB EG IN , TF I N AL, AMP 1 F V , AMP IF rt 
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5 FORMAT (4E1!3.6 ) 

IFdFINAL .EQ. 0.0) WR I TE ( MWR I TE , 4 8 ) 

48 FORMAT CO THERE IS NO TIME DEPENDENT FORCE DISTRIBUTION DURING 
« THIS RUN • ) 

I FIT FINAL .EQ. 0.0) GO TO 49 

CALL LOAOEQ(YtZ,ANG, AL,NOGA,AXG,AWG,AA, TBEGIN.TFINAL, IK) 

49 APDEN=0.0 

CALL PR INT ( ITfTIME, HHAL F, APDf N, FQREF , BMA SS , C 2 , NQR , KRGW , 

♦ NOEX.NIRREG ,CI NETO) 

NR£ADF=0 

T1=T6EGIN 

NL0AD=2 

IFITBEGIN.GT.Q.O .OR. TFI NAL .EQ. 0. C ) GO TO 120 
NL0AD=1 

CALL LOAOFT (TIME,NREADF,FMECH,AL ) 

CALL SQLV ( AMASS, FM EC H, SOL , ICOL, KRDW ,ND£X, N I , N I RREG ) 

DO 26 1 = 1, NI 

26 DELOII )=DELD{ I )+OTSQ*SOL( I )/2. 

IFINLOAO .EQ. 2) GO TO 120 
APD=0. 0 
DO 46 1=1, NI 

46 APD=APD+FMECH(I)=>D£LD{ I ) 

APDEN=APDEN+APD 

120 IT=IT+1 
TIME=IT*DELTAT 
DO 121 1=1, NI 
FQREFI I)=0.0 
FLVAI I )=0.0 

121 DISPI I )=OISP( I ) + D£LD(I ) 

45 CALL STRESS 

IFINQR .EQ. 0) GO TO 127 

CALL OMULT (SPRIN,DISP, I COL , N I , F QRE F ,KROW , N OEX , NIRR EG ) 

DO 128 1=1, NI 

128 FLVAI I )=FLVA( I J+FQREFI I ) 

127 NL0AD=2 

IFITIME.lt. TBEGIN .OR. TI ME.GT. TF I NAL) GO TO 122 
NLCAD=1 

CALL LOADFTITI ME , NR E ADF , FM EC H ,AL ) 

DO 123 1=1, NI 

123 FLVAI I )=FLVAl I l-FMECHI I ) 

122 IFIN8C0ND .EQ. 0) GO TO 124 
DO 125 I=1,NBC0ND 
JT4=N0DEBI I) *4 
FLVAIJT4-3 ) = 0.0 

IF INBCII) . EQ.l .OR. N8CII).EQ.2) F L VA IJT4- 1 ) =0 .0 
IFINBCm.EQ.2 .OR. NBCII).EQ.3) F L VA IJT4-2 ) =0 .0 

125 CONTINUE 

124 CALL SOLV( AMASS, FLVA, SOL, ICOL, KROW,NDEX,NI ,NIRR£G) 

DO 126 1=1, NI 

126 DELDl I ) = DELDI I )-SOLI I ) «OTSQ 
IF INLOAD .EQ. 2) GO TO 41 
AP0=0.0 

DO 42 1=1 , NI 

42 APD=APD+FMECH I I) *DELOI I ) 

APOEN=APOEN+APO 

41 IFIIT.EQ.l) CALL PRl NT I IT , TI ME, HHAL F , APDEN , FQR EF, BMAS S , C2 , NQR , 
♦KROW,NDEX,NIRR£G,CINETO) 

IF(IT-Ml) 130,140,150 
140 M1=M1+M2 

CALL PR INTI IT,TIME,HHALF,APDEN,FQREF , BMA SS ,C 2 , N Q R , KR OW , 

126 


130 

170 

62 

6 ^ 

66 


65 

67 

150 


♦ NDEX.NIRREG ,C I NETO) 

IFIIT-MM) 120,170,150 
IF(IBIG) 62,150,62 
IF(ISURF-2) 64,65,65 
WR1TE(MWRITC, 66) 0 IG , I 6 IG , 8T I ME 
FGRMAT{///,» LARGEST COMPUTED 

♦ INNER SURFACE MIDSPAN CF ELEMENT 

GO TO 150 

WRITEIMWRI TE,67J 8 IG , I 8 IG , BT I ME 
FORMAT (///,» LARGEST COMPUTED 
♦OUTER SURFACE MIOSPAN OF ELEMENT 
CALL EXIT 
END 


STRAIN =',E15.6,' OCCURS AT THE 
^*,13,' AT TIME (SEC.) =»,E15.6) 


STRAIN ^',E15.6,' OCCURS AT THE 
=',I3,» AT TIME (SEC.) =',EI5.6) 


SUBROUTINE AS SEM ( IR , I K ,EL MAS , STI F M , ICOL , NI ) 
C ♦♦♦«« PARTIAL RING ♦♦♦♦♦ 

DIMENSION ELMAS(3 ,8) ,NN(8 ) ,ST IFM( 1 ) ,IC0L(1 ) 

J1=IR^4 

NN(1 )=Jl-3 

NN(2)=Jl-2 

NN(3 )=J1-1 

NN(4)=J1 

J2=( IR + 1) ♦A 

NN(5 )=J2-3 

NN(6)=J2-2 

NN(7)=J2-1 

NN(8 )=J2 

202 DO 402 1=1,8 
M=NN(I) 

DO 402 J=1 ,8 
N=NN( J ) 

IF(M-N)402,403,403 
403 CALL F ICOL (M, N,L , ICOL) 

STIFM(L)=STIFM(L)*ELMAS(I , J) 

402 CONTINUE 
RETURN 
END 


SUBROUTINE ASSEF( I R , I K , ELF P,F LVA ) 
C PARTIAL RING ♦♦♦♦♦ 

DIMENSION NN ( 8) ,FLVA ( 1 ) ,ELFP( 1 ) 
J1=IR^4 
NN(l)=Jl-3 
NN(2)=Jl-2 
NN(3) = J1-1 
NN(4)=J1 

121 J2=(IR+1)*4 

NN(5)=J2-3 
NN(6)=J2-2 
NN(7 )= J2-1 
NN(8 )=J2 

123 DO 101 1=1 ,8 
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101 


M= NN ( 1 ) 

FLVA(M)=FLVA(M) + ELFP(I ) 

CONT INUE 

RETURN 

END 


SUBROUTINE IDENT ( 8 ,DENS ,NQR) 

C PARTIAL RING 

COMMON /TAPE/ MRE AO, MW R IT E ,MPUNCH 

COMMON /FG/ I K,NOGA, NFL,NSFL,NI , I COL (205 ) , NBCOND, N 8C { 4 J , NO DE 8 ( 4 J 
*,Y(51),Z(51),ANG(51),H(51) 

*NRITE(M WRITE , 1 ) 8 , DE NS , I K , NOG A , NF L, NSF L 
1 FOBMATC «**JET3C*** A SPATIAL FINITE ELEMENT AND TEMPORAL CENTR 

*AL DIFFERENCE PROGRAM*, /t* USED TO CALCULATE THE NONLINEAR RESP 

♦ ONSES OF A VARIABLE THICKNESS AR3 I TR AR I LY * , / , * CURVED PARTIAL 

♦ RING WITH THE FOLLOWING PARAMETERS *,//, 

WIDTH OF RING (IN) =*,£15.6,/, 

♦ • DENSITY ( LB-SEC**2/IN«<'4j =*,E15.6,/, 

NUMBER OF ELEMENTS =*,I5,/, 

♦ • NUMBER OF SPANWISE GAUSSIAN PTS =*,I5,/, 

*• NUMBER OF OEPTHWISE GAUSSIAN PTS =*,I5,/, 

♦* NUMBER OF MECHANICAL SUBLAYERS =*,I5) 

IF(NBCOND .£0. 0) GO TO 5 
DO 14 1=1, NBCOND 

IF(NBC(Ii .£Q. 1) WRIT£(MWRITE,15) NOOEB(I) 

IF(NBC(I) -EQ. 2) WRITE(MWRITE, 16) NODEB( I ) 

IF(NBC(I) .EQ. 3) WRIT£(MWRITE,17 ) N()OEB(I) 

14 CONTINUE 

15 FORMAT!* SYMMETRY DISPLACEMENT CONDITION AT NODE =*,I5) 

16 FORMAT!* CLAMPED DISPLACEMENT CGNDITION AT NUDE =*,I5) 

17 FORMAT!' HINGED DISPLACEMENT CONDITION AT NODE =*,I5) 

GO TO 18 

5 WRITEIMWRI TE, 13) 

13 FORMAT!/,' THERE IS NO PRESCRIBED CISPLACEMENT CONDITION*) 

18 IF!NQR .EQ. 0) GO TO 19 

WRITE!MWRITE,20) 

20 FORMAT!/,' CONSTRAINTS (ELASTIC FCUNDAT I ON/S PRI NG ) AS DESCRIBED 

♦ BY INPUT ' ) 

GO TO 23 

19 WRITE(MWRITE,21) 

21 FORMAT!/,* THERE ARE NO ELASTIC SPRING CONSTRAINTS') 

23 IKP1=IK+1 

WRITEIMWRITE, 11) 

WRITEIMWRITE, 12) ! I , Y ! I ) , Z ! I ) , ANG ! 1 ) , H ! I ) , 1= 1 , IKP 1 ) 

12 F0RMAT!2!I 5,4E15.6)) 

1 1 FORMAT !/, * NODE* , 7X, ' Y* ,14X, *Z' , 12K,' SLOPE • , 3X , • TH I C KNESS* ,3X, 

♦ • NODE* ,7X, ' Y* , 14X, *Z' , 12X, 'SLOPE* , 8X, * TH IC KNE S S • ) 

RETURN 

END 
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SUBROUTINE I M PULS (CELT AT, AL) 

C ♦♦♦♦♦ PARTIAL RING 

DIMENSION ALI50) 

COMMON /EG/ I KtNQGA, NFL,NSFL,NI, ICCLI205) , NBCUND,NBC (4 ),N00E3(4 ) 
♦,Y ( 51 ),Z(51 ), ANG( 51 ), H{ 51) 

COMMON /VQ/ FLVA(205 ),DISP{205),DELC(205),SNS( 50, 3,6, 5), 

♦8INP( 50,3) , BIMP(50,3) 

COMMON /TAPE/ MREAD, MWR IT E ,MPUNCH 
DO 50 1=1 , NI 
DELDI I )=0. 0 

50 DISP(I) = 0.0 
DO 51 IR=1,IK 
DO 51 J=1,N0GA 
8INP( IR,J)=0.0 
BIMP( IR, J ) =0. 0 
DO 51 K=1,NFL 
DO 51 L=1,NSFL 

51 SNS( IR,J,K,L)=0.0 
READ(MREA0,1) NV , lOT A, lOT B , lOTC 

1 F0RMAT(4I5) 

WRITEIMWRITE, 2) OELTAT 

2 FORMAT!/, • TIME STEP SIZE USED IN PROGRAM (SEC) =*,£15.5) 
IF(NV -EQ. 0) WRI TE( MWRITE ,4) 

IF(NV .GT. 0) WRIT£( MWRITE ,6) 

4 FORMAT!/, • THERE IS NO INITIAL IMPULSE •) 

6 FORMAT!/, • IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY 
« INPUT •) 

IF(NV ,EQ. 0) RETURN 
IFdOTA .EQ.O) GO TO 10 
DO 20 IM=1 ,IOTA 

REA0!MREA0,21 ) IE 1,IE2 ,WRAO,WRADl, ANGVl, WRAD2, ANGV2 

21 FORMAT !2I 5/5E15. 6 ) 

I£2M1=IE2-1 

DO 22 II=1,IE2M1 
I=IE1+II 

22 OELD! I«4-2 )=OELTAT«WRAD 
DELD!IE1*4-2)=DELTAT*WRAD1 
DELD! IEl^'4-1 )=UELTAT*ANGV1 
IE2P1=I£1+IE2 

DELD! I E2Pl*4-2 )=DELTAT4WRAD2 
DELD! IE2P 14=4-1 ) = DELTAT*ANGV2 
20 CUNT INUE 

10 IFIIQTB .EQ. 0) GO TO 41 

DO 30 IM=1,I0T8 

RE AD (MREAD, 31 ) NODEV , V RAD , WRAD, ANG V 
31 FQRMAT!I5 ,3E15.6) 

DELD(N0DEV*4-3 )=UELTAT4=VRA0 
DELD (NODEV 4=4- 2 )= DELT AT «WR A D 
DELD (NODEV 4=4-1 )=0E LTAT4= ANG V 
30 CONTINUE 

41 IFdOTC .EQ. 0) GO TO 60 
DO 61 IM=1,I0TC 
READ(MREAD,62 ) IS1,IS2,WRAD 
62 FORMAT (215 ,E15. 6) 

TX=0.0 

DO 65 NN=1 ,IS2 
NE = ( ISl-1 ) ^-NN 
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IF(NE ,GT. IK) NE=NE-IK 
65 TX=TX+AL(NE) 

PIEP=3.14159265/TX 

D6LD( IS1«4-1 j^WRAD^DELTAT’i'PIEP 

XX=0.0 

DO 63 II=l,IS2 
I =IS1 + I I 
NE=I-1 

IF(NE .GT. IK) N£=NE-IK 
XX=XX+AL(N£) 

OELDI I *4-2 )=WRAD^DELTAT«S INI P1EP«XX) 

63 OELDI 1*4-1 ) = WRAD*OELTAT=5'P I EP*CQS ( P I EP *XX ) 

61 CONTINUE 

60 IFINBCOND .EQ-O) RETURN 

DO 40 1=1 ,NaCQND 
JT4=NQDEB( I)*4 
DELDUT4-3 )=0.0 

IFINBCII ) .EU. 1 .OR. NBCII).EQ.2) DELDIJT4-1 )=0 .0 
IF (NBC (I ) . EQ, 2 .OR. NBC(I).EQ.3) 0 ELDIJT4- 2) =0 . 0 

40 CONTINUE 

RETURN 
END 


SUBROUTINE PR INTI IT,TI ME , HHALF , A POE N , FQREF , BHA SS , C2 , NQR, KROW , 
*NDEX,NlRREGfCINETO) 

partial ring ***** 

dimension C0PYI51J ,COP Z I 5 1 ) , HHALF ( 5 C) , 8EP SI 3) , EPS II 50 ) ,EPS 0( 50 ) 

* fFQREFl 1 ) , BMASS II ) ,KRQW ID , NOEX I 1 ) , C INE ( 20 5 ) ,FA IL I { 50 ) » FAILO I 50) 
COMMON /FG/ IK,N0GA, NFL,NSFL,NI , ICCU205) , NBC0N0,N8C (4 ),N0D£8{4 ) 
*,Y(5l ), Z(5 1),ANG(5U,H( 51) 

COMMON /HM/ YOUNG, OS ,C5,C6 , ASFL I 50 , 3, 6 , 5 ) , GZET A( 50 , 3 , 6 ) , SNO I 5) 
COMMON /VQ/ FLVA(205),DISPI205),DELC(205) ,SNS(50,3,6,5), 
*BINP(50,3) , BIMPI50,3) 

COMMON /BA/ 8EPI50,3,3 ,8) ,ALI50) ,AXG(3),AWGI3) 

COMMON /SC/ MCRIT,CRITS,8IG,IBIG,BTIME,ISURF 
COMMON /TAPE/ MREAD, MW R IT E ,M PUNCH 
DATA ASTER/'*'/, BLANK/' •/ 

DO 700 1=1, NI 

700 CINE(I)=0.0 

CALL OMULT IBM ASS, DEL 0, I COL ,N I ,C I NE , KRO W,NO EX , N IRREG ) 

Cl NET = 0.0 
DO 701 1=1, NI 

701 CINET = CINET+DELD( I )*CINE( I ) 

CINET=CINET*C2 

IFIIT .EQ. 0) CINETO = CINET 

ELAST=0.0 

DO 702 IR=1,IK 

DO 703 J=1,N0GA 

SUM=0.0 

DO 704 K=1,NFL 
DO 704 L=1,NSFL 

704 SUM=SUM+SNS(IR,J,K,L)**2*ASFL IIR,J,K,L) 

703 ELAST=ELAST+SUM*AWG(J) *AL I IR) 

702 CONTINUE 
SPDEN=0.0 

IFINQR .EO. 0) GO TO 31 
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32 


DO 32 1=1, NI 

SPDEN=SPDEM+D ISP I I )*FQREF { I ) 

SPDEN=SPDEN/2 . 

31 ELAST=ELAST/YOUNG/2. 

C1NETT=CINET0+APDEN 
PLAST=CINE TT-CINET-ELAST-SPDEN 

WRITEIMwRITE, 1) I T , T I M E ,C I NET T, C I N E T , E LA S T , P LA ST 



FORMAT I////// , • 

J = * . 

15, • 

TIME I SEC.) 

♦ * 

TOTAL ENERGY 

INPUT 

IIN.-L8. ) 

=»,E15.6,/, 


K INET IC 

ENERGY 

I IN. -LB. ) 

= ',E 15.6,/, 

♦ • 

ELASTIC 

ENERGY 

IIN.-LB. ) 

=*,E15.6,/, 

♦ ' 

PLAST IC 

WORK 

II N.-LB. ) 

=',E15.6) 


IFINQR .EQ. 0) GO TO 33 
WRITEIMWRITE, 34) SPDEN 

34 FORMAT!' ENERGY STORED IN THE ELASTIC RESTRAINTS I IN. -LB.) 
=<=E15.6) 

33 IKP1=IK+1 

DO 11 1=1, IKPl 

COPY! I ) = Y{ n+DISPII*4-3)*COS(ANG{I ) )-DISP( 1 *4- 2 ) ’«=S I N ( A NGl I ) ) 
11 COPZI I ) = ZI IH-0ISP(I*4-3)<'SIN( ANGI I ) )+DISP( I *4-2 ) *COS I ANGI I ) ) 
DO 601 IR=1, IK 
DO 604 1 = 1 ,3 
BEPS(I) = 0.0 
DO 604 K=1 ,8 
INDEX=IIR-1)*4+K 

604 8EPSI I )=B£PS I I )+3£P( I R , 2, I ,K ) *DI SP I INDEX) 

FARE=BEPS( D+3EPS (2) **2/2 . 

FCUR=BEPS ( 3) 

EPS I (IR) = FARE-HHALF( IR)*FCUR 
EPSOI IR) = FARE+HHALF( IR}*FCUR 
601 CONTINUE 

DO 60 IR=1 ,IK 

IF(EPSniR) .LE. BIG) GO TO 61 
BIG=EPSI ( I R) 

I BIG = I R 
ISURF=l 
BTIME=TIME 

61 IFIEPSO(IR) .LE. BIG) GO TO 60 

BIG=EPSO{ IR) 

IBIG=IR 
ISURF=2 
BTIME=T IME 
60 CONTINUE 

WRITEIMWRI TE,2) 

2 FORMAT!/, • I • , 5X, ' V ' , 1 1 X, • W' , 9X , 'PS I ' , 9 X , • C HI ' , 1 OX , 'COP Y* , 

*3X, *C OP Z*, 9X,'L',11X,'M',7X, 'STRAIN! IN )',4X, 'ST RAIN! OUT ) • ) 
IFIMCRIT .GT. 0) GO TO 50 
DO 51 1 = 1 , IK 
FAIL I ! I ) = 8LANK 
FAILO! 1 )=3LANK 

IFIEPSUI) .LT. GRITS) GO TO 52 
FA IL I ! I ) = ASTER 
IFIMCRIT .GT. 0) GO TO 52 
MCRI T=l 

52 IFIEPSOII) .LT. CRITS) GO TO 51 

FAILO! I )=ASTER 
IFIMCRIT .GT. 0) GO TO 51 
MCRIT=l 

51 CONTINUE 

IFIMCRIT .LE. C) GO TO 50 
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DO 53 1 = 1 , IK 

5 3 WR ITE I MWR I TE , 54J I ,DISP(I*4-3) ,U I S P ( I *4-2 ) , 01 S P( 1*4-1) ,OISP( 1*4) , 

*COPY( I ) ,COPZ( I ) ,BINPII, 2), BIMP( 1,2), EPSn I ) ,FAILI( I ), 

*EPSO( I ) ,FA ILOI I ) 

54 FORMAT (15, 9E 12. 4, A 2, El 2.4, A2) 

WRITE(MWRITE,54) IKP1,0ISP( IKP 1*4-3) ,DISP( I KP 1*4-2) ,01 SP( IK Pi*4- 1 ) 
*,DI SP{ IKPl* 4) ,COPY( IKPl ) ,COPZ( IKPl ) 

WRITE (MWRITE, 55) ASTER 

55 FORMAT!// ,5X,A2, * STRAIN EXCEEDS THE CRITICAL VALUE*) 

RETURN 

50 DO 21 1 = 1 , IK 

21 WRITE { MWRI TE , 22 ) I , DI SP ( 1*4-3 ) ,DISP ( 1*4-2) ,DISP (1*4-1 ) , DISP ( 1*4) , 
*COPY(I ),COPZ(I ),BINP( I, 2),BIMP(I,2) ,EPSI(I) ,EPSO(I ) 

22 FURMAT(I5,9E12.4,2X,E12.4) 

WRIT£(MWRITE,22)IKP1,DISP( IKP 1*4-3) ,DISP( IK PI* 4-2) ,DI S P( IK Pl*4-1 ) 
*,DISP( IKP1*4) , COPY! IKPl ),C0PZ(IKP1) 

RETURN 

END 


JET3C MAIN PROGRAM FOR VARIABLE THICKNESS ARBITRARILY CURVED RING 
JET3C CENTRAL DIFFERENCE OPERATOR 
♦ COMPLETE RING ***** 

DIMENSION AMA SSI 2 060) ,AA( 5 0,8,8),TXG(6),TWG(6),ES(6),GFL(50,3,6), 
*SOL(205 ),INUM(205),FMECH(205),HHALF(50) ,KR0W(8) ,NDEX(8) , 
*8MASS(2060) ,£ P S (5 ) , SI G ( 5 ) 

COMMON /TAPE/ MREA 0, MWR I T E ,M PUNCH 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI , IC OL ( 205 ) , NBCO NO, N BC ( 4),ND0E8( 4) 
♦,Y(51),Z(51),ANG(51),H(51) 

COMMON /HM/ YOUNG, DS,C5,C6,ASFL( 50,3,6,5) ,GZETA( 50, 3,6), SN0(5) 
COMMON /VQ/ FLVA(205),DISP(205),0ELC(205),SNS(50,3,6,5), 

*BINP( 50,3) , BIMPI50, 3) 

COMMON /BA/ BEP( 50,3,3,3) ,AL(50) ,AXG(3 ),AWG(3) 

COMMON /SC/ MCRIT, GRITS, BIG, I8IG,6TIME,ISURF 

COMMON /FORCE/ T 1 , AM P I FV, AMP IF W , T2 ,AMP2FV , AMP2FW, SLOPE V, SLOPEW , 
*AMPFV,AMPFW,NQFT1,N0FT2 , NOF T3 , JEL EM ( 4 ) , ETA ( 4) , RTOV ( 4) , RTOW( 4 ) , 
*NSTF2( 4) ,NELF2( 4) ,RT02V(4) ,RT02W(4) ,NSTF3(4) , NE LF3 ( 4 ) , RT03 V ( 4 ) , 
*RT0 3W(4) ,FM 1(4, 8, 2) ,FM2 (2, 4,3,2) , FM 3A ( 2 , 4, 8 , 2 ) , FM3B I 2 , 4 , 8, 2 ) 

COMMON /ELFU/ SP R I N ( 2 0 60) , FOREF ( 20 5 ) , NQR , NORP, NORU , NREL ( 4 ) , 

*REX (4) ,NRST (4) ,NREU(4) 

MREAD=5 
MWRI TE=6 
MPUNCH=7 

R£A0(MREAD,1 ) B, DENS , I K ,NOGA , NFL , NS FL , MM, M 1 , M2 

IKP1=IK+1 

PIE=3. 14159265 

READIMREAD,!! ) ( Y ( I ) , Z ( I ) , ANG ( I ) ,H ( I) , 1 = 1 , IK) 

II FORMAT (4E15.6 ) 

DO 111 1=1 , IK 

III ANG( I)=ANG(I ) *PIE/180. 

Y ( IKPl )=Y ( 1) 

Z( IKP1)=Z( 1) 

H( IKPl )=H( 1) 
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1 

2 

3 

4 
9 


70 

76 

78 

77 

79 

71 
73 
15 


16 


99 

990 


ANG( IKPl ) =ANG ( 1) 

REA0(MREAD,2) OE L T AT , C «I F S ,DS , P , ( F P S ( L ) , S I G ( L J ,L= 1 
FORMAT (2E15. 6/715} 

FORMAT (4E 15.6/ (4E 15. 6) ) 

READ(MREAD»3) (AXG(K) ,K=1,NQGA) 

READ (MREAD,3 ) ( AWG(K) ,K=1, NGGA) 

READ(MREAD,3J ITXG( K) ,K = 1,NFL) 

REA0{MREAD,3) (TWG(K) ,K=1«NFL) 

F0RMAT(4F15. 10) 

NI=IK*4 

READ(MREAD,4) NQCOND, {NBC( I)»NOI.)EB ( I), I = 1,NBC0NU) 
F0RMAT(9I 5) 

READ (MREAD,9) NQ R , NO RP , NO R U 
FORMAT (315 ) 

CALL IDENT(B,OENS»NQR) 

DO 70 IR=1»IK 
DO 70 J=1,N0GA 

RH=H{ IR) «( l.-AXG(J }) +H { IR + 1 ) AXG ( J ) 

DO 70 K=1 , NFL 

GFL( IR»J,K)=RH«TWG(K)*B/2. 

GZETA( IR, J,K)=RH«TXG(K )/2. 

ES(1)=SIG(1)/EPS(1) 

IF(NSFL-l) 77, 77,76 
DO 78 L=2,NSFL 

ES(L) = (SIG(L)-SIG(L-1) ) / (FPS(L)-EPS (L-1) ) 

£S (NSFL + 1)=0.0 
DO 79 L=1,NSFL 
SNQ(L) =ES I 1)*EPS( L) 

YOUNG=ES( 1 ) 

DO 71 IR=1 ,IK 
DO 71 J=1,N0GA 
DO 71 K=1,NFL 
DO 71 L=1,NSFL 

ASFL ( IR, J , K,L )=GFL(IR, J,K ) *( E S( L ) -£ S{ L+ 1) ) /E S ( 1) 

DO 73 IR=1 ,IK 

HHALF( IR)=(H( IR+1)+H( IR)} /2./2. 

DO 15 1=1,8 
ICOL( I ) = 1 
IKM1=IK-1 
DO 16 1 = 3, IKMl 
IK4=I *4 
IK'3=IK4-1 
IK2=IK4-2 
lKl=IK4-3 
JJ=( l-l)*4-3 
ICOL( IKl ) = JJ 
ICOL( IK2)=JJ 
IC0L(1K3)=JJ 
IC0L( I K4) = JJ 
CGNT INUE 
ICCL( IK*4)=1 
I COL ( IK*4- 1) = 1 
ICOL ( IK*4-2)= 1 
ICOL( IK*4-3)=1 
INUM( 1 ) = 1 
DC 99 1=2, M 

INUMd ) = I-IC0L(I-1)+INUM( I-l) 

DO 990 1=1, NI 

INUM( I ) = INUM( I )-ICQL(l ) 

NI RREG=0 


,NSFL) 
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I NDEX=0 
I SET=1 

DO 116 1=1, NI 
L=ICQL ( I ) 

IF nCOL(I)-ISET) 117,116,1 19 

119 ISET=ICOL(I) 

GO TO 116 

117 NIRREG=NIRREG+1 

IF (N IRREG-NI/2 )711,711 ,90 
711 KRCW( NIRREG) =I 

NDEX(NIRREG)= INDEX 
116 IND£X=INDEX+I-L 
90 CALL F ICOLINI ,NI ,L,ICGL) 

IS IZE=L 

WRITEIMWRITE, 17) L 

17 FORMAT!/, • SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX =*,I5) 
CALL EL MPP( AMASS , DEL TAT , A A , I S IZE , KROW , NO EX, N I RRE G, I N UM , 

♦ DENS, YOUNG ,0MASS) 

IF (NQR .EQ. 0) GO TO 22 
DO 23 L=1 , IS I ZE 

23 SPRIN(L)=0.0 

CALL OREM(AA,AL, AXG,AWG) 

DO 24 1=1 ,NI 

24 FQREF(IJ=0.0 

22 IF (DS.EQ.0.0) GO TO 21 

C5=l./P 

C6=1./DS/DELTAT 

21 0TSQ=0ELTAT*«2/( DENS*B4=0.1 ) 

C2=DENS*B*0.1/(2.<'DELTAT**2) 

MCRIT=0 
RIG=10.«* (-10) 

IBIG=0 

IT=0 

TIME=0.0 

CALL IMPULS(DELTAT, AL) 

RE A0(MREAC,5 ) TB EG IN , T F IN A L, AMP 1 FV , AMPIFW 
5 F0RMAT(4E15.6) 

IFITFINAL .EQ. 0.0) WR I TE ( MWR ITE , 48 ) 

48 FORMATCO THERE IS NO TIME DEPENDENT FORCE DISTRIBUTION DURING 

* TH IS RUN • ) 

IFITFINAL .EQ. 0.0) GO TO 49 

CALL LOADEQI Y,Z,ANG,AL,NOGA , A XG , AWG, A A ,T B EGI N , T F 1 NAL ) 

49 APDEN=0.0 

CALL PRINT ( IT,TI ME, HHALF,APDFA,FQREF, BMASS,C2,NQR,KR0W, 
♦NDEX,NIRREG,CINETO) 

NREAOF=0 

T1=TBEGIN 

NL0AD=2 

I F (TBEGIN.GT .0.0 .OR. T FI N AL . EQ . 0. 0 ) GO TO 120 
NLQAD=1 

CALL LOADFTI TIME,NREADF ,FMECH,AL ) 

CALL SOLV ( AMASS, FMECH, SOL , ICOL , KRO W , NDEX , N I , N I RREG ) 

DO 26 1=1, NI 

26 OELD{ I ) = DELD( I )+DTSQ*SOL( I )/2. 

IFINLOAD .EQ. 2) GO TO 120 
APD=0.0 
DC 46 1=1 , NI 

46 APO=APD+FMECH ( I )*OELD( I ) 

APDEN=APDEN+APD 

120 IT=IT+1 
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121 


AO 

A5 


120 

127 


123 

122 


125 
12A 

126 


42 

41 


140 


130 

170 

62 

64 

66 


65 

67 

150 


TIME=IT«DELTAT 
DO 121 1 = 1 ,NI 
FQKEF( I )=0.0 
FLVA( I ) = 0.0 

01 SP(I )=DISP{ I) + DELO(I ) 

DO 40 K=l,4 

DI SP( I K*4 + K) = DISP (K) 

DELD( IK*4 + K)=DELD(K) 

CALL STRESS 

IF (NQR .EQ. 0 ) GO TO 127 

CALL OMULT (SPRIN,DISP, ICOL ,NI ,F QREF ,KROW , NOEX , NIRREG) 

DO 128 I=1,NI 

FLVA( I )=FLVA( I )+FQREF( 1 ) 

NL0AD=2 

IF {T IME.LT.TBEGIN .OR. T I ME. GT . T F I NAL ) GO TO 122 
NL0AD=1 

CALL LOADFT ( T I M E , NR E ADF , FM EC H ,AL ) 

DO 123 1=1, NI 

FL VA( n = FLVA( I }-FMECH( I ) 

IF(N8C0N0 .EQ. OJ GO TO 124 
DO 125 I=1,NBC0ND 
JT4=N0DEB( I)*4 
FLVA(JT4-3)=0.0 

IFINBC(I) .EQ.l .OR. NBC(I1.EQ.2) F L VA ( JT4- 1 ) =0 .0 
IF INBC(I).EQ.2 .OR. NBC(I).EQ.3) F L\.A( JT4-2) =0.0 
CONTINUE 

CALL SOLVI AMASS,FLVA, SOL, ICOL, KROW.NDEXfNI , NIRREG) 

00 126 1 = 1, NI 

DELD( I )=OELD( 1 )-SOL{I) *OTSQ 
IFINLOAD .EQ. 2) GO TO 41 
APD=0.0 
DO 42 1=1, NI 

APO=APD+FMECH( I)*OELO( I ) 

APDEN=APDEN+APD 

IFUT.EQ. 1) CALL PRINT ( I T , TI ME ,HHAL F , A PDEN , FQR EF , B MA SS ,C2,NQR, 
♦KROW,NDEX, NIRREG,CINETO ) 

IFUT-Ml) 130,140, 150 


M1=M1+M2 

CALL PRINT { IT, T I ME, HHALF,APDEN, FQREF , BM ASS , C 2, NQ R, KR 0 W , 


♦NOEX,NIRREG,C INETO) 

IF(IT-MM) 120,170, 150 
IF(IBIG) 62,150,62 
IF(ISURF-2) 64,65,65 
WRITE{MWRITE,66J B IG , I 8 IG , 8T I ME 
FORMAT!///, • LARGEST CUMPUTED 
♦INNER SURFACE MIDSPAN OF ELEMENT 
GO TO 150 

WRITEIMWRI TE,67) B I G , I 8 IG , BT I ME 
FORMAT!///, • LARGEST COMPUTED 
♦OUTER SURFACE MIOSPAN OF ELEMENT 
CALL EXIT 
END 


STRAIN =*,E15.6,' OCCURS AT THE 
=',I3,' AT TIME (SEC.) =*,E15.6) 


STRAIN =',E15.6,' OCCURS AT THE 
= ',13,' AT TIME (SEC.) =',EI5.6) 
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SUBROUTINE ASSEMI I R , I K , EL MAS , ST I F M , ICGL, N I ) 
C COMPLETE RING 

DIME NS ION ELM ASI8 ,8) ,NN(8 ) fSTIFMIl ) ,ICOL(l ) 

J 1=IR*4 

NN(l)=Jl-3 

NN(2)=Jl-2 

NNI3)=J1-1 

NN(4)=J1 

IF(IR-IK) 203,204,204 

203 J2=(IR+1)*4 
NN(5)=J2-3 
NN(6 )=J2-2 
NN(7)=J2-1 
NN(8)=J2 

GO TO 202 

204 NN(5)=1 
NNI6)=2 
NN(7)=3 
NN(8)=4 

202 DO 402 1=1,8 
M=NN(I ) 

DO 402 J=l,8 
N=NN{ J ) 

IF(M-N)402 ,403,403 
4C3 CALL F ICOL (M,N,L,ICOL) 

STIFM{L) = STIFM(L) +ELMAS( I , J) 

402 CONTINUE 
RETURN 
END 


SUBROUTINE ASSEFI IR, I K , ELF P, F LVA ) 
Q COMPLETE RING <=«*=*=<= 

DIMENSION NN(8),FLVA(1) ,ELFP(1) 
J1=IR*4 
NN( I ) =Jl-3 
NN(2 )=Jl-2 
NN(3 )=J1-1 
NN(4)=J1 

IFIIR-IK) 121,122,122 

121 J2=(IR+1)^4 
NN(5)=J2-3 
NNI6 ) = J2-2 
NN(7)=J2-1 
NN(8)=J2 
GO TO 123 

122 NN(5)=1 
NN(6)=2 
NN(7)=3 
NN (8)=4 
DO 101 1=1,8 


123 
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M = NN ( I ) 

FLVACM J=FLVAIM) + ELFP( I ) 
IGl CONTINUE 
RETURN 
END 


► 


SUBROUTINE IDENT ( B,DENS,NQR) 

C «««♦« COMPLETE RING 

COMMON /TAPE/ MRE AO, MWR I TE .MPUNCH 

COMMON /FG/ IK,NOGA,NFL,NSFL,NI , ICOL (205) , NBCOND,NBC ( 4) ,NaOEB(4) 
«fY(51) ,Z(51 ),ANG(51),H(51) 

WR ITE( MWR ITE, 1) B , DE NS , IK , NOGA ,NFL , NSFL 
1 FORMAT!' ET3C<“^* A SPATIAL FINITE ELEMENT AND TEMPORAL CENTR 

*AL DIFFERENCE PROGRAM', /,' USED TC CALCULATE THE NONLINEAR RESP 
♦GNSES OF A VARIABLE THICKNESS ARBITRARILY',/,' CURVED COMPLETE 


♦RING WITH THE FOLLOWING PARAMETERS ',//, 


♦ • 

WIDTH 

OF RING !IN) 

=' ,E15.6, /, 


DENSITY !LB-SEC**2/ IN**4) 

=*,E15.6, /, 

* • 

NUMBER 

OF ELEMENTS 

='»I5,/, 


NUMBER 

OF SPANWISE GAUSSIAN PTS 

= M5,/, 


NUMBER 

OF DEPTHWISE GAUSSIAN PTS =*,I5,/, 

♦ • 

NUMBER 

OF MECHANICAL SUBLAYERS 

=' ,15) 


IF (NBCOND 

.EQ. 0) GO TO 5 



DO 14 1=1, 

NBCOND 



IFINBCII) 

.EQ. 1) WRITEIMWRITE, 15) 

NODES! I ) 


IF INBC ! I ) 

-EQ. 2) WRITEIMWRITE, 16) 

NODEBI I ) 


IF INBC! I ) 

.EQ. 3) WRITEIMWRITE, 17) 

NODEB! I ) 


14 CONTINUE 

15 FORMAT!' SYMMETRY DISPLACEMENT CONDITION AT NODE =',I5) 

16 FORMAT!' CLAMPED DISPLACEMENT CONDITION AT NODE =',I5) 

17 FORMAT!' HINGED DISPLACEMENT CCNDITION AT NODE =',I5) 

GO TO 18 

5 WRITE! MWR ITE, 13) 

13 FORMAT!/,' THERE IS NO PRESCRIBED DISPLACEMENT CONDITION') 

18 IFINQR .EQ. 0) GO TO 19 
WRITEIMWRITE, 20) 

20 FORMAT!/,' CONSTRAINTS lELASTIC FCUNDAT I ON/ S PR I NG ) AS DESCRIBED 
♦ BY INPUT ' ) 

GO TO 23 

19 WRITEIMWRITE, 21) 

21 FORMAT!/,' THERE ARE NO ELASTIC SPRING CONSTRAINTS') 

23 IKP1 = IK+1 

WRITEIMWRITE, 11) 

WRITEIMWRITE, 12) !I,Y(I),Z!I ) , ANG! I ), H ( I ) , 1 = 1 , IKP I ) 

12 F0RMAT!2(I 5,4E15.6)) 

11 FORMAT !/, ' NODE* ,7X, ' Y* ,14X, 'Z' , 12X, 'SLOPE ',8X, 'THICKNESS* ,3X, 

♦' NODE' ,7X, 'Y' ,14X, 'Z' , 12X , 'SLOPE' , 8X, ' THICKNESS* ) 

RETURN 

END 


SUBROUTINE I M PUL S ! DE LT A T , A L) 
C COMPLETE RING 
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DIMENSION AL(50) 

COMMON /FG/ I K,NQGA, NFL,NSFL,NI , I COL (205) , NBCONO,NOC ( 4) ,NQDEai4 ) 
*fY(51),Z(51),ANG(51),H(51) 

COMMON /VO/ FLVAI 205) , OISP (205) ,OELD(205) , SNS( 50,3 ,6,5 ) , 
«BINP(50,3) ,eiMP(50,3) 

COMMON /TAPE/ MR E AD, MWR I T E ,M PUNCH 
DO 50 1=1, NI 
OELD( I )=0. 0 
iO DISP(I) = 0.0 

DO 51 IR=1 ,IK 
DO 51 J=1 ,NOGA 
BINP( IR, J )=0.0 
BIMP( IR,J)=0.0 
DO 51 K=1,NFL 
DO 51 L=1,NSFL 

51 SNSdR ,J,K ,L) =0.0 
READ(MREA0,1) NV , I OTA , I QT 3 , 10 TC 

1 FORMAT (415) 

WRITE(MWRITE,2) DELTAT 

2 FORMAT!/, • TIME STEP SIZE USED IN PROGRAM (SEC) =',E15.6) 
IF(NV .EQ. 0) WRITE(MWRITE,4) 

1F(NV .GT. 0) WRI TE( MWRITE ,6) 

4 FORMAT {/,' THERE IS NO INITIAL IMPULSE •) 

b FORMAT!/, • IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY 
* INPUT •) 

IF(NV .EQ. 0) GO TO 43 
IFdOTA .EQ.O) GO TO 10 
DO 20 IM=1,I0TA 

READ(MREAD,21 ) I E 1 , I E2 , WR A D, WRADl , AKGVl , WR AD2 , ANGV2 

21 FORMAT (21 5/5E 15.6) 

IE2M1=IE2-1 

DO 22 d = l,IE2Ml 
I=I£l-dI 

IF(I .GT. IK) I=I-IK 

22 DEED! I*4-2)=DELTAT*WRAD 
D£LD( IE1*4-2)=DELTAT*WRA01 
D£LD( I El*4-1 ) =0ELTAT«ANGV1 
IE2Pl= IE1+ IE2 

IF(IE2P1 .GT. IK) IE2P1=I E2P1-IK 
OELD( IE2P1*4-2)=DELTAT*WRA02 
DELD(IE2P1*4-1 )=DELT AT *ANGV2 
20 CONTINUE 

10 IFdOTB .EQ. 0) GO TO 41 

DO 30 IM=1,I0TB 

R£A0(MREAD,31 ) NOOEV , VRAO , KRAD, A NG V 
31 FORMAT (15, 3E 15. 6) 

DEL0(N00EV*4-3 ) = DELT AT *V«A 0 
0ELD(N0DEV«4-2 )=OELTAT*WRAO 
DELD(NQDEV<‘4-1 )= OELT AT *ANGV 
30 CONTINUE 

41 IFdOTC .EQ. 0) GO TO 60 

DO 61 IM=1 ,IOTC 
READ(MREAD,62) IS1,IS2,WRA0 

52 FORMAT (215, E15. 6) 

TX=0.0 

DO 65 NN=1,IS2 
NE=dSl-l ) +NN 
IF(NE .GT. IK) NE=NE-IK 
55 TX=TX+AL(NE) 

PI EP=3.14159265/TX 


138 



DELD( I S )=WKAD«DELTAT<=PIEP 

XX=0.0 

DO 63 I 1= 1 ,I S2 
1= ISl + II 
NE=I-1 

IF(I .GT. IK) I = I-IK 
IFINE ,GT. IK) NE=NE-IK 
XX=XX+AL(NE) 

DELOI I *4-2)=WRAD*DELTAT*SIN(PIEP«XX) 

63 DELDI I<=4-1 )=WRAD«DELTAT*PI£P«COS (PIEP^XX) 

61 CONTINUE 

60 IFINBCONO .EQ.O) GO TO 43 

UO 40 1=1 , N8C0ND 
JT4=N0DEB( I)«4 
OELOI JT4-3)=0.0 

IF (NBC m . EQ. 1 .OR. NBC(I).EQ.2) D ELD ( JT4- 1 ) = 0 .0 
IF (NBCII ).EQ.2 .OR. NBCm.EQ.3) D E LD ( JT4-2 ) =0 .0 
40 CONTINUE 

43 DO 44 K=1 ,4 

OISPI IK*4+K)=0ISP(K) 

44 OELOI IK*4 + K) = DELD(K) 

RETURN 

END 


SUBROUTINE PR INT IIT,TI ME , HHALF , A PO E h , F QREF , BMA SS , C2 , NQR t KR OW , 

♦ N0EX,NIRREG,CINETO) 

C COMPLETE RING 

DIMENSION COPY (51) ,CQP Z ( 5 1 ) , HHALF I 5C)f8EPS(3) , EPSI ( 50 ) ,E PS □( 50 ) 

♦ ,FQREF( 1) , BMASS (1 ) t KROW (1) , NDEX ( 1 ) , C INE ( 205 ) , FA IL I ( 50) ♦ FAILOI 50) 

COMMON /FG/ IK,NOGA» NFL,NSFL,NI , ICCL (205) » NBCO NO, N BC ( 4 ) , NO DE B( 4 ) 
*,Y (51 ) ,Z(51 ), ANG(51 ), H( 51) 

COMMON /HM/ YOUNG,0S,C5,C6,ASFL(50,3,6,5),GZETA(50,3,6),SNO(5) 
COMMON /VQ/ FLVA(205),DISP(205),DELC(205) ,SNS(50,3,6,5), 
*BINP(50,3) , 6IMP(50,3) 

COMMON /BA/ BEP( 50,3,3 ,8) ,AL(50) ,AXG(3) ,AWG(3) 

COMMON /SC/ MCRIT,CRITS,8IG,I8IG,BTIME,ISURF 
COMMON /TAPE/ MR E A D, MW R IT E ,M PUNCH 
DATA ASTER /•*'/, BLANK/' '/ 

DO 700 1 = 1 ,NI 
7 GO CINE(I)=0.0 

CALL OMULT (BMASS , OELO, I COL ,NI ,CINE , KROW, NDE X , N I RREG ) 

CINET=0.0 
DO 701 1=1 ,NI 

7C1 CINET=CINET+OELD( I )*CINE( I ) 

CINET=CINET=«'C2 

IF(IT .EQ. 0) CINETO = CINET 

ELAST=0.0 

DO 702 IR=1,IK 

DO 703 J=1,NGGA 

SUM=0.0 

DO 704 K=1 ,NFL 
DU 704 L=1,NSFL 

7C4 SUM=SUM+SNS(I R ,J, K,L)**2*ASFL (IR,J ,K,L) 

703 ELAST=ELAST-^SUM«=AWG( J) *AL ( IR) 

702 CONTINUE 
SPDEN = 0.0 
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IF INQR .EQ. 0 ) GO TO 3 1 
DO 32 1=1, NI 

32 SPDEIM=SPDEN+DISP { I )=S=FUREF( I) 

SP0EN=SPDEN/2 . 

31 ELAST=ELAST/YUL'NG/2. 

CINETT = CINETO+APDEiN 
PLAST=CIN£ n-C INET-ELAST-S PDEN 

WRITEIMWRI TE, 1) I T ,T I ME , C I NETT ,C 1 NET , ELAST ,PLAST 
I FORMATCl J=',I5,* TIME (SEC.) =*,E15.6,/, 


♦ • 

TOTAL ENERGY 

I NPUT 

dN.-LB. ) 

=',E15.6,/ 


KINET IC 

ENERGY 

!IN.-Ld. ) 

= ',E 15.6,/ 

« • 

ELAST IC 

ENERGY 

(IN. -LB. ) 

= ',E15.6,/ 

♦ » 

PLASTIC 

WORK 

!I N.-LB. ) 

=*,E15.6) 


IFINQR .EQ. 0) GO TO 33 
WRITEIMWRITE ,34) SPDEN 

34 FORMAT(* ENERGY STORED IN THE ELASTIC RESTRAINTS (IN. -LB.) 
^E15.6) 

33 DO 11 1=1, IK 

COPY I I )=Y( I) + DISP{ I«4-3)*C0S( ANG( I ) )-DISP( I *4-2) *S1N ( ANG( 1 ) ) 
11 COPZd ) = Z( I) + DISP(I*4-3)*SIN(ANG(I ) )+DISP( I *4-2 ) *COS ( ANG( I ) ) 
DO 601 IR=1, IK 
DO 604 1=1,3 
BE PS (I ) =0.0 
DO 604 K=l,8 
INDEX={IR-1)*4+K 

604 BEPS( I )=8EPS1 I )+BEP( IR ,2, I ,K)*DI SP ( INDEX) 

FAa£=BEPS( l)+BEPS(2J**2/2. 

FCUR=BEPS( 3) 

EPSI(1R) = FARE-HHALF{ IR)*FCUR 
EPSOIIR) = FARE+HHALF( IR j*FCUR 
601 CONTINUE 

DO 60 1R=1,IK 

IF(EPSKIR) .LE. BIG) GO TO 61 
BIG=EPSIIIR) 

1 B IG= I R 
I SURF = 1 
BTiME=TlM£ 

61 IFIEPSOUR) .LE. BIG) GO TO 60 

BIG=EPSO(IR) 

IBIG=IR 
ISURF=2 
BTIME = T1ME 
60 CONTINUE 

ivRITE (MWRI TE , 2 ) 

2 FORMAT!/, • I • , 5X, • V » ,1 1 X, • W* , 9X , • PS I • , 9X , • C HI • , lOX , 'COP Y » , 

*3X, 'C0PZ*,9X, *L',liX, • M •, 7 X,' STRAIN! IN) *,4X, • STRAI N ! OUT ) • ) 
IF!MCRIT .GT. 0) GO TO 50 
DO 51 1 = 1, IK 
FAILI ! I )= BLANK 
FAILO! I )=BLANK 

IF!EPSI(I) .LT. CRITS) GO TO 52 
FAILI ( I)=ASTER 
IFIMCRIT .GT. 0) GO TO 52 
MCRIT= 1 

52 IFlEPSOd) .LT. CRITS) GO TO 51 

FA ILO! I) = ASTER 
IFIMCRIT .GT. 0) GO TO 51 
MCRI T=1 

51 CONTINUE 

IFIMCRIT .LE. 0) GO TO 50 
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DO 53 r=l, IK 

53 WRITE (MWKI TE, 54) I ,OIS P { I *4-3 ) ,D ISP ( 1*4-2) , D I S PI I *4- I ) , DI S P ( I *4 ) , 
*COPY{ I ) fCOPZI I ) ,BINP( I ,2), BIMPI 1,2) .EPSIII ) ,FAILIII ), 

*EPSO( I ) ,FAILQ( I ) 

54 FORMAT II 5 , 5£1 2 .4 , A2, El 2 .4 , A2 ) 

WRITE(MWRITE,55) ASTER 

55 FORMAT (// ,5X,A2, • STRAIN EXCEEDS THE CRITICAL VALUE') 

RETURN 

50 DO 21 1=1, IK 

21 WRITE(MWRITE,22) I , DI S P { 1*4-3 ), D I SP ( 1*4-2) , DI SP ( I *4- 1 ) , 01 SP ( I *4) , 
*CIJPY( I ) ,COPZ( I ) ,BINP( I ,2), BIMPI I ,2) ,EPSI ( I ) ,EPSOI I ) 

22 FORMAT (I5,9E12.4,2X,E12.4) 

RETURN 

END 

SUBROUTINE ELMPPI AMA5 S , DELTA! , AA , IS I ZE , K ROW , NDE X , NIRR EG, INUM, 
*ULNS, YOUNG .BMASS ) 

C TO FIND THE MASS MATRIX STIFFNESS MATRIX AND STRAIN NODAL 

C DISPLACEMENT TRANSFORMATION MATRICES 

DIMENSION A(8 ,8) , AA( 50,8 , 8 ) , LMI ( 8 ) , MM I ( 8 ) ,D(8,8 ) ,ELM(8,8 ), 

*ELMAS ( 8,8 ) , AMASS! 1 ) ,E( 8,8 ) ,EK1 { 8, 8 ) , ELK ( 8 , 8 ) , STIFKI2060) , 
*SE1(3,3,8),KR0W{1 ),NDEX(1 ) , I NUM ( 1 ) , BM ASS ( 1 ),BNG( 51) 

COMMON /FG/ IK,N0GA,NFL,NSFL,NI,ICOL(205) , NBCCND ,NEC (4 ) , NODE 8 (4 ) 
*.Y(51) ,Z( 51 ), ANGI51 ), H (51 ) 

COMMON /BA/ 8EP(50,3,3,3),AL(50),AXG(3),AWG(3) 

COMMON /TAPE/ MREAD, MWR I TE ,MPUNCH 
DO 18 L=l, ISIZE 
18 AMASS(L)=0.0 

IFIDELTAT .GT. 0,0 GG TC 50 
DO 51 L=1,ISIZE 

51 STIFK(L)=C.0 

50 DO 101 IR=1, IK 

P5=Z(IR+l)-Z(IR) 

P6=YI IR+1)-Y(TR) 

P7=ANG( IR+1)“ANG(IR) 

APHA=ATANIP5/P6) 

IF(P6.LT.C.O .AND. P5.LT.O.O) APHA=APHA- 3 . 14 1 59 2 65 
IFIP6.lt. 0.0 .AND. P5.GE.0.0) APHA=APHA+3. 14 159265 
IFIP7 .EQ, 0.0) GC TO 60 

AL( IR )=P7*S0RT(P5**2 + P6**2)/SIN( P7/2. )/2. 

GO TO 61 

60 AL( IR )=5QRT( P5**2+P6**2 ) 

61 BNGI IR + 1 ) = ANG( IR+1) 

BNGI IR) = ANG( IR ) 

IFIP7.GT. 14.7124) .AND. APHA.LT. 0.0) BNGI IR + 1 ) = ANG( IR + 1 )-6. 2831 853 
I FI P7.GT. 14.7124) . AND. APHA.GT.0.0) BNGI IR )=ANG( IR ) + 6, 2 831853 
1FIP7.lt. 1-4.7124) . AN D . AP HA.GT .0, 0 ) BNGI IR +1 ) = AN G I IR+ 1 )+6. 283 1 853 
IF ( P 7. LT. (-4. 7124) .AND. APHA.LT. 0.0) BNGI I R ) = ANG( I R ) -6 . 283 1 353 
BZhK=eNG( IR )-APFA 

b 1= 1-2. *BNG( IR+1 )-4.*8NG I IR )+6.*APHA ) /AL I IR ) 

B2=I 3.’»'BNG( IR + 1 ) + 3.*BNG( IR )-6.*APHA ) / AL I I R)**2 
DO 102 1=1,8 
DO 102 J=l,8 
A( 1. J )=0.C 
E( I . J )=0.Q 
102 D(I,J)=0,C 

AI1,1)= CnS( BNGI IR )-APHA ) 

A(l,2)= SINIBNGI IR )-APHA ) 

A I 2, 1 )=- SIN (BNGI IP )-APHA ) 

A(2,2)= COSIBNGI IR)-APHA ) 

A(3,3)=l. 

A( 5, 1 ) = COS (BNGIIR + 1 )- APHA ) 
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A{r>,2 ) = SIN{3NGnR+l)->apH;M 

A( 5, 3)=P6*SIN(8NG( IR + 1) > - P5*C0S ( BNG ( IR + 1 ) ) 

A(6. 1)=-SIN{ BNG( IR+1 )-APHA) 

A( 5,2 J=CCS (BNG( IP + D-APHA) 

A(5, 3) = P6«C0S(BNGnR + l) ) +P5*S I N ( B NG ( IR+1 ) ) 

A(7, 3 )=1 . 

A(‘t,4)=l. 

A(5,4)=AL( IR) 

A{5,7 ) = AL I IR ) 

A(5, 8) = ALUR 
A(o, 5)=AL( IR )+*2 
A(6,6 ) = AL ( IR )^*3 
P8=B1 + 2.*B2=^AL( IR) 

A(7,4) = AL( IRI’i'Pa 
A(7,5) = 2.*ALI IR) 

A(7,6)=3.*AL(IR)**2 
A(7, 7 )=AL( IR)*^2*P9 
A(7,8) = AL(IR)'f'^3*P3 
AI8, A)=l. 

A(d, 5 ) = -AL (IP )^*2'*P8 
A(a,6)=-AL(IR)«'i'3'*P8 
A(8, 7)=2.«AL( IR) 

A(d, 8 ) = 3.+AL ( IR )*-»2 

CALL MINV( A,8 ,DST,LWI ,MMI ) 

DU 52 1=1,8 
DO 52 J=l,8 

52 aA( IR,I , J)=A( I, J) 

DO 103 J=1,NGGA 
ZtT=AL( IR )»AXGU) 

RH=H( IR+1 )*AXG( J)+H( IR)* ( l.-AXGI J) ) 
fti=RH**3/12. 

RH=RH*10, 

KI=RI*10. 

PHIP=el+2.*B2*ZBT 

PHI = BZPR + P1*ZET + E2*ZET**2 

WET = AL( I R )*AWG( J ) 

yztT=o.o 

ZZtT=C.O 

UU lOA JJ=l,NnGA 

P2=BZER + P1*ZET*AXG(JJ ) + B2’»( ZET*AXG( JJ ) )**2+APHA 
YZtT=YZET+C0S(P2)^ZET*AWG(JJ) 

104 ZZfcT=ZZET+SIN(P2)*ZET*AWG( JJ) 

P3=YZET*SIN( PHI+APHA )-ZZET*COS{PHI+APHA) 
P4=YZET*CGS( PHI+^PHA) +ZZET*SIN(PHI+APHA) 

0( 1, 1)=D( 1,1 )+RH*WET 
D(2,2)=D(2,2)+RH*WET 

0(3,1 )=□( 3.1 )+( P3*C0S(PHI )-P4*SIN(PHI ) )*RH*WET 
0{3,2)*=D(3,2)+( P3*SIN (PHI )+P4*C0S (PHI ) )*RH*WET 
D(3,3)=0(3,3)+( P3**2*RH+P4**2*RH+RI )*WET 
0(4, 1) = D(4,1)+ZET*CGS(PHI )*RH*WET 
0(4,2 ) = 0 (4,2 ) +ZET + SIN (PHI )*RH*WET 
0(4,3 )=D (4,3) +( P3*ZET*RH+ZET*PHIP*RI )*WET 
0(4,4) = 0(4,4) + (RH+PHIP**2*R! )*ZET**2*WET 
0(5 , 1) =D( 5, 1 )-ZET**2*SIN(PHI )*RH*WET 
0(6, 1)=D( 6,1 )-ZET**3*SIN(PHI )*RH*WET 
0(7, 1 )=□( 7, 1 ) +ZET**2*C0S(PHI )*RH*W£T 
0(8,i) = D(8,l )+ZET + ’^3*C0S(PHI )*RH*WET 
0(5,3)=D(5,3)+( P4*ZET**2*RH+2.*ZET*RI )*WET 
D(6,3)==D(6,3)+( P4 + ZET^*3*RH+3.*ZET**2*RI )*WET 
D(7,3)=0( 7,3) + ( P3*RH+PHIP*RT )*ZET**2*WET 
0(8, 3) = D( 8,3) + ( PJ+'RH + PHIP^RI )*ZET*^3*WET 
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D(3,4J = D{5,4) +2. =*ZET**2*PHIP*RI^<WET 
0(6. 4 )=Dl 6,^^ )+3. ♦ZET**3^PHIP*RI’«'W2T 
D{7,4) = 0(7,4M{ RH4PHTP^“2’»RI ) *ZET«=^«3^'‘WE T 
0(8, 4) =0(8,4) +( PH + PHIP^=S'2*R! )4^Z£T^*4*WET 
0(5.5 ) = D( 5.5)+( ZeT'^^4+RH + 4.«ZET«'s'2*RI )*WET 
U(6, 5 ) = 0(6,5 ) + ( ZET**5^RH + 5.*ZET=4'^3*RI )*WET 
0(7, 5 ) = D ( 7, 5 )+2.*ZET'^'4<3*PHIP*RI + WET 
U(8.5) = D(8,5 )*2.*ZET’^«4=^PHIP*RI*WET 
D(6,6)=0(6.6)+( ZET**6*RH+9.*ZET»*4*RI »^WET 
0(7. 6) = D( 7,6 )+3.*ZET*’>4*PHIPARI-<'WET 
0(8,6 ) = D( 8.6 )43.’»ZET**5*PHIPARI’»:WET 
D(7.7)=0(7,7) -M RH + PHI P’!'’»'2*RI ) =»=ZET>«'*4’^WET 
0(8, 7 ) = D( 8,7) 4( PH4PHIP*«2*RI ) vZET’««* 5« WE T 
0(8, 8 )=D( 8 ,8 ) 4( RH4FHI F^*2+RI )*ZET*«6*WET 
00 201 M=l,3 
DO 201 N=l,8 

201 BEK J,M,N)=0.0 
BEK J,l,4)=l. 

BEK J,l, 5 )=-ZET**2*PH IP 
BEK J,1,6)=-ZET=«'*3*PHIP 
BEK J,1,7) = 2.’«-ZET 
BtK J,l, 3 )=3. 

BEK J,2,3 )=1. 

BEK J, 2, 4 ) = ZE7’«'PHIP 
BEK J,2, 5 )=2.«ZET 
BEK J,2. 6 )=3. *ZET=*=*2 
BEK J,2, 7 ) = ZE T**24PHI P 
BEK J, 2,3 ) = ZET*t3’*PHIP 
BEK J ,3,4 )=-PHI P-ZETA2. *82 
BEK J,3, 5 )=-2. 

BEK J,3, 6)=-6.=«'ZET 

6cK J,3, 7)=-2.*ZET*PHIP-ZET’^*2^2.*82 

BEK J,3, 8 )=-3.*ZET*’!'2^PHlP-ZET=«^=»'3«2.*82 

00 202 M=l,3 

00 202 N=l,8 

BtP ( IR, J , R,N )=0,0 

DO 202 K=l,8 

202 8EP( IR, J.^'.N) =BEP( IR, J,N,N)4BE1( J,M,K)>i'A(K,N) 
IF(DELTAT .GT. 0.0) GO TO 103 
TI=PHIP4ZET*2.*B2 

T2=2.*ZET + PHIP4ZET*’^2*2,*B2 

T3=3.#ZET*'^2*PHIP4ZET’«*3*2.*82 

E(4,4) = E ( 4,4 ) 4( RH4TI*42’^'RI )»?'WET 

E(5, 4) = E( 5,4)4(-ZET*42*PHIP’e=PH42.’!=Tl*RI )*WET 

fc(6.4)=E (6,4)4(-ZET^*3*PHIP*RH46.«ZET*T1*RI )*WET 

E(7,4)=E( 7,4) 4( 2.*ZET+RH4T2*T1*RI )«WET 

E(d,4) = E (8,4)4{ 3.*ZET=»424RH4T3+T1«RI )*WET 

E(5, 5) = E ( 5,5 ) 4( ZET**4*PHIP**2*RH44,*R I) *WET 

E(6,5) = E(6,5) 4{ ZE7**5*PHIP**2*=RH4 12.*ZET*PI )*WET 

E(7,5) = E(7,5)4(-2. *ZET**3*PHIP*RH42.*T2<'R I K^WE7 

c(8,5) = E (8 ,5) 4(-3.*ZET**4^PHIP*^RH42.*T34-R I )»WET 

E(6,6) = E(6,6)4( ZE7*^6=!'PH!P**2*RH4 36.*ZET**2»RI )*VET 

E(7 ,6 ) = E( 7,6 ) 4( -2.4ZE7*-i:4*PHIPvRH46,’f*ZET*72*RI ) 4WE7 

E(8,6) = E(8,6) 4(-3.«ZET#«5*PHIP*=KH46.<=ZET>('73vr I )*WE7 

E(7 , 7 )=E( 7,7 )4( 4. 4ZET«*2*RH4T2^-2«R I )*WET 

t(8,7) = E (8,7)4(6.’*Z£T*’^=3«RH4T2=^T3 vRI )*WET 

c(o,8) = £{8,8)4( 9.TZE 7**4*RH4T 3*’<2«R I )v«WET 

10 3 CJi'KINUE 

D(5.2)=D(7,1 ) 
u(6, 2 ) = D( 8,1) 
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D(7 .2 )=-D (5, l ) 

D(b» 2)=-D(6, 1 ) 

DO 105 1=1,7 
IP1=I+1 

DO 105 J= IPl, 8 
D ( i , J ) = D ( J , I ) 
uG 106 1=1,3 
DU 106 J=l,8 
cLM( I ,J) =0.0 
UU 106 K=l,8 

106 bLM( I , J)=ELM( r,J)+^{K,n*G(K,Jl 
□a 107 1=1, B 

DU 107 J=l,8 
£LMA5<I, J)=0.0 
00 107 K=l,8 

107 fcLMAS( I , J)=ELMAS( I , J ) +E L M f I , K ) ( K , J ) 

CALL ASS EM( IR, IK,ELMAS, AMASS, IC0L,NI) 

IF(OELTAT .GT. O.OJ GG TC 101 

DO 20 1=1,7 

IP1=I+1 

DO 20 J=IP1,8 

20 £(I,J)=ElJ,n 
00 21 1 = 1,8 
DO 21 J=l,8 

EKK I , J) = 0.0 
DO 21 K=l,8 

21 EKll I,JI=EKl<I,J) + A(K,n*E{K,J) 

□0 22 1 = 1,8 

DO 22 J=l,8 
£LK( I,J > = C.0 
DO 22 K=l,3 

22 £LK( I ,J)=ELK( I, J)+EK1 (I ,K)«A(K,J) 

CALL ASSEM( IR,IK,ELK,STIFK,IC0L,NI ) 

lul CONTINUE 

IFINBCOMO .EO.O) GC TC OQ 

DO 91 I=1,N8C0ND 

JT4=N0DEE( I)*A 

JT^M3=JT4-3 

JT4M2=JT A-2 

JT‘,M1=JT4-1 

CALL ERC (JT4M3, AMASS, NI , ICOL ) 

IF(NBC{I ),E0.1 .OR. NeC(I).E0.2} CALL E RC ( JT4M1 , AMAS S , NI , ICOL ) 
IF(NBC( I ) .EQ.2 .OR. NEC(I).E0.3) CALL ERC ( JT4M2 , AM AS S ,N I , ICOL ) 

91 CONTINUE 

90 Du 92 L=1,ISIZE 

92 BMASS(L) =AMASS( L) 

CALL FAC ( AMASS, I COL, K ROW ,NDEX, IDET, MWRI TE ,N I , N I RREG , INUM) 
IF(D£LTAT .GT. 0.0) RETURN 

DETERMINATION OF CELTAT IF NOT GIVEN 

CALL T5TEP{ AMASS,STIFK,DEAS,YaUNG,KRGW,NDEX,NIRPEG,DELTAT) 
RETURN 
END 


SUBROUTINE STRESS 

C TO EVALUATE GENERALIZED NODAL LOAD VECTOR DUE TO LARGE DEFLECTION 
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C AND ELASTIC-PLASTIC STRAIN 

DIMENSION ELF P( 8 ), BE PS( 3 ),CEPS( 3, 3) ,BINPW(3),BIMFW(3) ,HW8(3,3), 
^PN(8) , PM( 8 ) ,HNL (8 » 

CUMMON /FG/ I K.NCGA, N FL t N SFL » N I , I COL { 205 ) , N8CCNC»NPC (A) ,NOOEB(4) 
^,Y(51),Z(51),ANG(51),H(51) 

CuHMuN /HP/ YCUNG.DS ,C5, C6,ASFL(50»3f 6, 5 ) , GZ ETA ( 50, 3t 6) , SNO( 5) 
COMMON /VO/ FLVA(205) ,DI SP(205),DELD(205) ,SNS(50,3,6,5), 

^‘BINPC 5 0,3 ) , BIMP( 50, 3) 

CUMMON /BA/ BEP(50,3,3,B),AL(50),AXG{3),AWG(3) 

DU 502 IR=1, IK 
DJ 503 J=l,NaCA 
bINP( IR, J)=0. 

BIMP { IR, J )=0. 

202 DO 402 1=1,3 
BEPSI I )=0. 

DU 402 K=l,8 
IIMDEX = ( IR-U>i'4 + K 

40 2 BEPSl I ) = BEPS( I ) + BEP( I R , J , I , K ) *DEL C 1 NDEX ) 

CEPS (J, 2 ) = 0.0 
DO 403 K=l,8 
INDEX=( IR-1 l*4+K 

403 CEPS(J,2)=CEPS( J,2) + BEP( !R,J,2,K)*DISP(INDEX) 

205 FAkE=BEPS( 1 )+CEPS( J,2 )*BEPS(2 )-BEPS (2)**2/2. 

FCUK=BEPS( 3) 

DU 151 K=1,NFL 
BFNP = 0. 

BEPX=FARE+GZETA ( IR,J,K)*FCUR 

IFIDS.GT. 0.0) RFACTR=1.+(C6*ABS(6EPX) )**C5 

DU 35 L=1,NSFL 

SNS( IR, J,K,L)=SNS( IR, J,K,U + YOUNG>KBEPX 
IFIDS.EQ. 0.0) GO TO 255 
IF(SNS( IR, J,K,L )-SNO(L) ) 30,301,91 
51 SNY=SNO (L )*RFACTR 

1F(SNS( IR,J,K,L)-SNY)301,301,20 
20 SNSUR, J ,K,L ) =SNY 

GO TO 301 

30 IF( SNS( IR , J,K ,L)+SNQ( L ) ) 9 2 ,301 , 30 1 
92 SNY=SNO( L )*RFACTR 

IF(SNS(IR,J,K,L )+SNY ) 40, 301,301 
40 SNS( IR, J,K,L)=-SNY 

GU TO 301 

255 IF(SNS( IR, J,K,L )-SNO(L) ) 18,301,17 

17 SNS( IR, J ,K ,L) =SNG( L) 

GU TO 301 

16 IF(SNS( IR, J,K,L ) + SNO( L) ) 19, 301,301 

19 SNS( IR, J,K,L) =-SNO(l) 

301 BFNP=BFNP + SNS(IR, J,K,L)*ASFL( IR,J,K,L) 

35 CONTINUE 

BINP( IR, J)=3INP( IR,J)+8FNF 

BIMP( IR, J)=BIMP( IR, J ) +BFNP’!'GZETA( IR,J,K) 

151 CONTINUE 

503 CONTINUE 

107 DU 101 J=1,N0GA 

6INPW(J)=EINP(IR, J)*=AWG( J)*AL( IR) 

GIMP W( J ) =BIMP( IR, J)*AWG( J )*AL ( IR ) 

riWBl J ,2) =CEPSl J, 2)^AWGU )*B1MPI IR, J)*AU IR) 

101 CuNTINUE 

DU 102 1=1,^ 

PN( 1 )=0. 

PM( I ) =0. 
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HNL ( I ) = 0.0 

UJ 102 J=1,N0GA 

PNJ n = PN ( I ) + BEP ( IR ,J , 1, I )^BINPW( J) 
PM( 1 )=PM( I ) + REP( IP,J,3, I 1*BIMPW( J ) 
102 HNL( = ) + BFP( IR , Jf 2 , n^HWB( J,2 ) 

200 DO 105 1 = 1, a 
105 tLFP( I) = PN(I )+PV( I) + hM( I ) 

502 CALL ASSEF{ IR ,IK,ELFP,FLVA) 

RETURN 

END 


SUBROUTINE LQ ADE C ( Y , Z , ANG , AL, NOGA , AXG , AWG , A A , TBE G IN ,T F INAL , IK ) 

C TO find generalized NjOAL LOAD AND EXTERNALLY-APPLIED LOAD TRANS- 

C FORMATION MATRICES 

OIMENSIJN FM( e,2 ) ,AA< 50, e,8) , Y(1 ) ,Z (1 ) , ANG ( 1 ) , A L ( 1 ) , AXG ( 1 ) , AWG( 1 ) 
^,FMA( 8,2) ,FM8(8,2),BNG(51 ) 

COMMON /FORCE/ T I , AM P IF V , AMP 1 FW , T 2 , AMP2 FV , AMP2FW , SLO PEV, SLOPEW, 
*AMPFV.AMPFW,NOFTl,NaFT2,NOFT3, JELEM(4) ,ETA (A) ,RTOV{A) ,RT0W(4), 
*NSTF2(A),NELF2(A ),RT02V(4) ,RT02W(4) ,NSTF3( A),NELF3I4) ,RT03V(A) , 
*RTU3w( A) ,FM1( A,8,2) ,FV2(2,A,8,2) ,FM3A(2,A,8,2 ) ,FM3B(2 ,A,8,2) 

COMMON /TAPE/ MREAO, MWRI TE ,MPUNCH 
IF(TFINAL .EQ. 0.0) RETURN 
WRiTE(MWRITE,A7) T9EG IN , TF INAL 

A7 FORMATCO STARTING TIME OF FORCING FUNCTION (SEC) =',E15.6,/, 
STOPPING TIME OF FORCING FUNCTION (SEC) =*,E15.6) 

REaO( MREAD,6 ) NOF T 1 , NOF T 2 ,N0FT3 
FURMAT(3I5) 

FORMAT(I5,3E15.6) 

FORMAT(2I5,2E15.6) 

IF(NUFT1 .EO. 0) GO TQ 5A 

READ ( MR E AD, 7 ) ( JELE N( I ) , ETA ( I ) ,RTOV( I ) ,RTOW( I ) , I = l,NOFTl) 

DU 100 I=1,N0FT1 
NE = JELEM( I ) 

SL=ETA( I ) 

P5=Z(NE+1 )-Z(NE ) 

P6=Y ( NE + 1 )-Y (NE ) 

P7=ANG(NE+1)-ANG(NE) 

APHA=ATAN(P5/P6) 

1F(P6.LT.0.0 .AND. P5.LT.0.0) APHA= APHA-3 . 1 A 1 59265 
IF(P6.LT.C.O .AND. P5.GE.0.0) APHA= APHA+3 . 1 A 159 265 
BNG( NE+1 ) = ANG(NE+1) 

BiNG( NE) = ANG(NE) 

IF(P7.GT. ( A.712A) .AND. APHA.LT.0.0) BNG ( NE ♦ 1 ) =ANG ( NE+l )-6. 2331853 
IF(P7.GT. (A.712A) .AND.APHA.GT.0.0) BNG ( NE ) =ANG ( NE ) + 6. 2 831 853 
IF(P7. LT. ("-A. 712A) .AMD.APHA.GT.0.0 ) BNG( NE +1 ) = ANG (NE+1 ) +6. 2831853 
1F(P7.LT. (-A.712A) .AND . A PHA . LT. 0. 0 ) BNG ( NE ) = ANG ( NE )-6 . 283 1 853 
BZcR=BNG(NE)-APHA 

Bi=(-2.^BNG(NE+1 )-A. + BNG(NE )+6.+APHA ) /AL (NE) 

B2=( 3.-^BNG{NE + l )+3.ABNG(NE)-6.*APHA )/AL( NE)=«'=^2 
PH1=BZER + P1*SL+B2 + SL’?‘*2 
PHIP=81+2.*B2*SL 
YZcI=0.0 
ZZtT=0.0 

DU 101 JJ=1,NCGA 

P2=BZER + B1^SL*AXG( JJ ) +8 2 + ( SL* AXG ( JJ ) )*’?'2+APHA 
YZtT=YZET + COS (P2 )^SL*AWG( JJ ) 
iOl ZZhT=ZZE T + SIN(P2 ) + SL*AWG( JJ) 
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P3=YZPT«SIN( Phl+APHA )-ZZ f T*COS ( P H I + APHA ) 

P4=YZET’>=CaS( PHI +APHA) -i-ZZET*S!N( PHI + APHA ) 

FMU. 1)=CQS(PH! ) 

FM(2.1)=SIN(PHI ) 

FM( 1, 2)=-SIN(PHl J 
FM(2,2) = CGS( PHI ) 

FM(3, 1 )=P3 
FM(3, 2)=P4 
FM(4, 1)=SL 
FM(4 ,2) =0.C 
FM(5, 1)=0.0 
FH( 5,2)=SL^*2 

FM(6, n=o.o 

FM( 6. 2 )=SL*«3 
FM<7 . 1 )=SL**2 
FM( 7,2) = G.C 
FM( 8, I ) = SL’<-=^3 
FM(S,2>=0.0 
DO 102 M=l»a 
Du 102 N=l»2 
FMK I ,M, N )=0.0 
Du 102 K=l,3 

102 FMK I ,M, N ) = FM1( I , M, N ) +AA ( NE, K , M) *FM ( K , N ) 

100 CONTINUE 

54 IF(NOFT2 .EO. 0) GG TC 55 

READ(MREAC,8 ) (NSTF2( I ),NELF2( I) , RT02V( I ) , RT02W(I ) ,1=1 ,N0FT2) 

DO 200 I=1,N0FT2 
NSTAT=NSTF2( I ) 

NcND=NELF2(I I 

DO 201 NN=1,NENC 

NE=( NSTAT-D+NN 

IF(NE .GT. IK) NE=NE-IK 

P5=Z( NE+1 )-Z(NE) 

P6=Y ( NE+ 1 )-Y( NE ) 

P7=ANG(NE41 ) -ANG (NE) 

APHA=ATAN( P5/P6 ) 

IF(P6.LT,0.0 .AND. P5.LT.0.0) APH A= APHA- 3 . 1 A 1 592 6 5 
1F(P6.LT.O.O .AND. P5.GE.0.0) APHA=APHA+3 . 14159265 
BNGI NE+1 ) =ANG(NE+1 ) 

BNG( NE )= ANGINE ) 

IF (P7.GT. (4.7124 ) . AND . APH A ,LT • 0 . 0 ) BNG ( NE ♦ I ) = ANG ( N £♦ 1 )-6. 2331853 
IF(P7.GT. (4.7124 ) . AND. APHA.GT.0.0) BNG(NE ) =ANG(NE ) *6. 2831 853 
IF(P7.LT. (-4.7124 ) , AND .AP H A .GT .0. 0 ) 3N G( NE ♦ 1 ) =ANG ( NE+ 1 ) +6. 2831853 
IF(P7.LT. (-4.7124) . AND. APHA.LT .0.0 ) BNG(NE ) = ANG ( NE )-6 . 283 1 853 
BZdR=BNG(NE)-APHA 

Bl=(-2. + BNG(NE + l )-4.*BNG(NE) + 6.^APHA ) /AL(NE) 

62=( 3,-"BNG(NE + l ) +3. ^ B NG ( N E )-6 . APHA ) / AL ( N E ) >^*2 
DU 202 M=l,8 
Du 202 N=l,2 
202 FM(M,N)=0.0 

Du 203 J=1,N0C-A 
ZET=AL(NE )^»«AXG( J) 

PHIP=B1 + 2.4B2<‘ZE7 

PHI = BZER + E1*ZET+E2'*ZET’«=*2 

WET=AL{ NE )*AWG( J ) 

YZET=0.0 

ZZcT=0.0 

DU 204 JJ=l,NCGA 

P2=BZER + B1*ZET=^AXG( JJ )+B2’^( ZET*AXG( JJ ) )4*2+APHA 
YZbT=YZET+COS ( P2 ) T-ZET ♦ AWG ( JJ ) 
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204 ZZtT=ZZET+SlN(P2)*ZcT*AWG(JJ) 

P3=YZET^SIN( PH I +APHA)-ZZET*CnS( PH I + APHA ) 

P4=YZtT^C0S( PHI + /!PHA )+ZZET*STN(PHH-APHA ) 

FM( 1 , 1 ) = FV( 1, 1) +C0S( PHI )*WET 

FM(1,2) = FN(1,2)-SIN(PHI ) ’»WET 
Fi'U2.1) = FV{2t 1)+SIN( PHI I’fcWET 

FH(2.2) = Ff'(2,2)+CaS(PHI)*WET f 

FM(3 . 1) = FN (3, 1 ) + P3^WET 
FM(4# 1)=FH(4, 1)+ZF7*WET 
FM(7. l) = Fy (7, 1 ) + ZET*’^2*WET 
FM(6 ,1 ) = FV(6» 1 ) + ZFT’^«3*WET 
FM(3, ?) = FM( 3, 2 ) + PA'*WE7 
FM( 5 .2) = Fy (5,2 ) + ZET + '*2’^WET 
FM(6,2)=FM(6,2) + ZET«>^3*WE7 
203 CONTINUE 

Dj 205 M=1,8 
DO 205 N=l,2 
FM2( I,NN,N,N>=O.C 
DO 205 K=l,8 

205 FH2( I,NN,N,N)=Ff/2(I,NN,M,N) + AA(NE,K,M)’!'FM(K,N) 

201 CONTINUE 

200 CONTINUE 

55 IF(N0FT3 .EQ. 0) RETURN 

READ ( HR E AO, 8 ) (NSTF3( I ) , NELF 3 ( I ) , R T03 V( I ) , RT03W ( I ) , I = 1 , NOF T3 ) 

UJ 300 I=1,N0FT3 
NSTAT=NSTF3( I ) 

N£ND=NELF3 ( I ) 

DO 301 NN=1,NEND 
NE=(NSTAT-1)+NN 
IF(NE .GT. IK) NE=NE-IK 
P5=Z (NE+1 )-Z( NE ) 

P6=Y(NE+1)-Y(NE ) 

P7 = ANG(NE-U)-ANG(NE) 

APHA=ATAN(P5/P6) 

IF(P6.LT.O.O .AND. P5.LT.O.O) APHA=APHA-3 . 14159265 
IF(P6.LT.O.O .ANC. P5.GE.O.O) A PHA= APHA+3 . 14 159 265 
8NG( NE + 1 ) = ANG (NE + 1 ) 

6NG(NE)= ANG(NE) 

IF(P7.GT. (4.7124 ) .AND. APHA.LT.0.0 ) BNG(NE+1 ) = ANG(NE + 1 )-6. 2831853 
IF (P7.GT. (4.7124) . AND . APHA .GT. 0. 0 ) BNG ( NE ) =ANG ( NE ) + 6. 2831853 
IF(P7.LT. (-4.7124 ) . AND . AP HA .GT .0. 0 ) BNG( NE +1 ) = ANG ( Nt+ 1 ) +6. 283 1 853 
IF(P7.LT. (-4.7124) .AND. APHA.LT.0.0) BNG(NE ) = ANG(NE )-6. 283 1853 
BZER=BNG(NE )-APHA 

Bi=( -2.*BNG(NE + 1 )-4.^BNG(NE ) + 6.«APHA ) /AL( NE) 

B2=( 3.*BNG(NE + 1 ) +3 .* BNG ( N E )-6 . ’•‘APHA ) / AL ( NE ) ♦*2 
DO 302 M=l,8 
DO 302 N=l,2 
FMA(M,N) =0.0 
302 FNB(M,N)=0.0 

00 303 J=1,N0GA 
ZET=AL(NE)’!'AXG( J) 

PHIP=B1+2.*B2*ZET 
PHI=BZER+ei*ZET+E2*ZET**2 
WET=AL(NE)*AWG( J) 

YZET=0.0 

ZZET=0.0 

DO 304 JJ=1,N0GA 

P2=BZER + ei«ZET*AXG(J J )+B 2 ( ZET4» AXG( JJ ) ) «*2 + APHA 
YZET=YZET+C0S(P2 )7ZET*AWG(JJ ) 

30 4 ZZET = ZZET + SIN(P2 )-^ZET*AWG( JJ) 

P3=YZET:«:SIN( PHI+APHA)-ZZ ETaCOS (PHI + APHA ) 
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P4=YZ6T*C0S( PHI + /5PHA ) +ZZ ET*SIN( PHI + APhA ) 

FMa( i ,1 )=FNA(1,1 )+C05 (PHI )nJET 
fMA(2,l)=FyA( 2,1 »+SIN(PHI J*V-JET 
FMA(3, I ) =FMA( 3, 1 )+P3«WET 
FMA(4,1 )=FFA(A,1 )+ZET’»WET 
FMA( 7, 1 ) =FMA( 7, 1 ) + ZET‘^’^2’*'WET 
FMA( fa,l )=FMA( 8, 1 )+ZET'<'=^'3*V»E’^ 

FHA( i ,2) =FMA( 1,2 )-SIN(PHI )>f'WET 

FHA{ 2,2)=FMA( 2 , 2 ) +C0 S ( PH I) * WE T 

FMA(3,2)=FMA(3,2 )+PA«WET 

FMA( 5,2) =Ff^A( 5,2 > + ZET^*2*WET 

FMA( 6,2 ) = FMA( 6 , 2 ) +ZE T 3* WET 

FM8( i,l )=FM8(1, 1 )+COS (PHI)*ZET*W£T/AL(NE) 

FMB( 2,1) =FHB( 2,1)+SIN(PHI ) *ZE T^WET/ AL ( NE ) 

FMb( 3,1 ) =FM8(3, 1 ) *P ZE WET/ AL ( NE ) 

FMB(4,1 )=FV8(A,1 )+ZET**2Y=WET/AL(NE) 

FM6( 7,1)=FMB(7, 1)+ZET«*3*WET/AL{NE) 

FMB( 8,1 ) = FN!B( 8, 1 ) + ZET«’»=4*WET/AL ( NE ) 

FMB( 1,2) =FMB( 1,2)-SIN(PHI )*ZET*WET/AL(NE) 

FMB( 2,2)=FMB( 2,2)+COS(PHI )*ZE WET/A L ( NE ) 

FMB (3,2 ) =FHB( 3,2 )+P4’?'ZET*WET/AL (NE) 

FMB( 5,2) =FM8( 5,2 ) + 26T«*=3*WET/AL( NE ) 

FMB( 6,2) = FM8( 6, 2 ) +ZE T+*4*WET/AL ( NE ) 

303 CaNTINUE 

DU 305 M=l,3 
DO 305 M=l,2 
FM3A( I,NN,N,N)=0.0 
FM3B( I,NN,M,N)=0. C 
DJ 305 K=l,8 

FM3A( I,NN,^',N)=F^'3A( I ,NN , P , N ) + AA ( NE, K , M ) >*FM A ( K , N ) 
305 FM3B( I,NN,M,N)=F«3B(I ,NN , P,N ) +AA ( NE , K , P ) ♦FMB ( K , N ) 

301 CONTINUE 
300 CUNTINUE 
RETURN 
END 


SUBRGUTI NE LOADFT ( T I M E , N R EADF , FMECH , AL ) 

C TO FIND THE GENERALIZED NODAL LOAD VECTOR EQUIVALENT TO THE 

C cXTERNALLY-APPLIEC LOAD 

DIMENSION FMECH (205) , EL F ( 8 ) , AL ( 50 ) 

COMMON /FORCE/ T 1 , AMP IF V , AMP 1 FW , T2 , AMP2F V , AMP2F W , S LO PEV , S LOPE W, 
♦AMPFV , AMPFW,N0FT1, n:fT2,N0FT3, J£LEM(4) ,ETA (4), RT0V(4) ,RT0W(4) , 
♦NSTF2 ( 4) , NELF2( 4 ) ,RT02V( 4 ) ,RT02W( 4) ,NSTF3( 4) , NELF3(4 ) ,RT03V(4 ) , 
♦R703W (4) , FM1(4,8,2),FM2(2,4,B,2), FM3A(2,4, 8,2),FM3B(2,4,8,2) 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI, I COL (205) , N8CGN C ,N PC ( 4 ) , NODE B ( 4 ) 
*,Y(51 ) ,Z( 51 ), ANG( 5 1 ),H(51 ) 

COMMON /TAPE/ MRE AD, MWR I TE,M PUNC H 
IF(NREADF ,GT. C) GO TO 50 

51 READ(MREAD,52) T 2 , AMP 2FV , AMP2 F W 

52 FORMAT( 3E15, 6) 

NRcADF=l 

SLUPEV= ( AM P2FV- AMP IFV )/( T2-T1 ) 

SLOPEW= (AMP2FW-AMR1FW)/ ( T2-T1 ) 

50 iF(TlMP ,LE. T2) go TO 53 

Ti = T2 

AMP1FV=AMP2FV 
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AMPi. FW= AMP2FW 
G'J TJ 51 

53 AMPFV=AMP1FV+(TIMS-T1 )*SLOPEV 
mMPFW=AMP1FW+(TIPE-T1 )*SLCPEW 
DU 37 I=1»NI 

37 FMcLH(I)=0.0 

IFtNUFTl .EQ. 0) GG TO 5 A 

Dj 100 I=1.N0FT1 
NE=JtLEw ( I ) 
rMV^Af<PFV^PTnV{ I ) 

FMW=AMPF W«RTnW( I ) 

DO iOl J=1.8 

10 i cLF{J)=FPlU ,J,1)«FMV+FV1(I, J,2)*FMW 

100 CALL ASSEF{NE,IK,5LF,FMECH) 

54 Ir(NdFT2 .EQ. 0) GO TO 55 

DU 200 I=1,N0FT2 
NSTAI=NSTF2( I ) 

NLND=NELF2(I ) 

FMV=AMPFV*RT02V ( I ) 

FNW=AVPFW*RTa2WI I ) 

DJ 201 NN=1,NEND 
NE= (NSTAT-1)+N'N 
IF(Nt ,GT. IK) NE=NE-IK 
DO 202 J=l»8 

202 ELF( J)=FV2( I.NM, J,1)^FMV+FM2( I , NN, J , 2 )*FMW 

201 CALL ASSFF(NE,IK,ELF,FMECH) 

200 CONTINUE 

55 IF(N0FT3 .EO. 0) GO TO 90 
00 300 I=1,N0FT3 
NSTAT=NSTF3( I ) 

N£ND=NELF3 (I ) 

TX=0. 0 

DO 303 MN=1,NEND 

NE=( NSTAT-1 )+NN 

iF(N£ .GT. IK) NE=NE-IK 

303 TX=TX+AL(NE) 

PIEP=3. 14159265/TX 
FMV=AMPFV*RT03V{ I ) 

FMW=AMPFW*RTQ3W{ I ) 

FNW1 = 0, 0 
FMV1=0.0 
XX=0.0 

DU 301 NN=1,NEN0 
Nl=( NSTAT- 1 )+NN 
IF(Nt .GT. IK) NE=NE-IK 
XX=XX+AL (NE) 

X=PIEP=^‘XX 
FMW2=SIN(X)#Fyw 
FMV2 = SIN( X )=^FFV 
AFSW=FMW1 
BFSrt={FMW2-FMWl ) 

AFSV=FMV1 
BFSV=FMV2-FMV1 
FHwl=FMW2 
FMV1=FMV2 
DJ 302 J=l,8 

30 2 cLF( J)=FN3A(T ,NN , J , I ) * AF5 V+FM3A (I , NN. J, 2 ) *AF SW + 

^FM3B( ItMN.J.l )«8FSV+FM3B( I ,NN, J ♦ 2 ) =^BF S W 

301 CALL ASSEF{NE,IK,ELF,FMECF) 

300 CONTINUE 

90 IF(N8CQND .EO. 0) RETURN 
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DJ 9i I=1,NBCCNC 
JT4=N0DEB( IM'A 
FMcCH( JT4-3) =0. 0 

IF(NBC( I ) ,EO. 1 .CR. NBC(n.E0.2) FM ECH ( JT A-1 ) =0 . 0 
IF(NBC( I ) ,E0.2 .QR. NBC(I).E0.3) FMECH( J TA-2 ) =0. 0 
91 CJNTINUE 

56 RETURN 

END 


SUBROUTINE OREM { 4 A , A L , AX G , AWG ) 

C TO FIND EFFECTIVE STIFFNESS MATRIX DUE TO ELASTIC RESTRAINTS 

DIMENSION AA(50,8,8) ♦ AL( n.AXGIl ),AWG(l ) ,8NG(51) 
^,ELRt6,«),ELRR(8.8),ELRP(B»8) 

COMMON /FG/ IK.NCGA, N FL , NSFL , Nl , I COL ( 205 ) , NBCOND ,N EC ( A ) tNODEB(A) 
^tY(51),Z(51),ANG(51),H(51) 

COMMON /ELFU/ SPRIN( .2 060 I ,FOREF( 205 ) ♦ NO R » NOR F ♦ NC RU t NREL ( A ) , 
=«'R£X(A),NRST(A) ,NREU(A) 

COMMON /TAPE/ MR EAD , « WR I T E , MPUNCH 
IF (NORP .EO. 0) GO TO 1 

READ ( MR E AC, 2 ) SCTP,SCRP, (NREL(I) , REX( I ), 1 = 1, NORP J 
2 FuRMAT(2E15.6/(A( I5,E15.6))) 

DO 10 10=1, NORP 
SL=REX( I e ) 

N£=NREL( IC) 

P5=Z{NE+1)-Z(NE) 

P6=Y(NE+1)-Y(NE ) 

P7=ANG(NE+1)-ANG(NE) 

APHm=ATAN(P5/P6) 

IF(P6.LT.O.O .and. P5.LT. 0.0) APHA=APHA-3,1A159265 
IF(P6.LT.C.0 .and. P5.GE.0.0) AP HA=APHA+3 . 14 159265 
BNG(NE + 1 ) = ANG(NE4l ) 

8NG(NE)=ANG(NE) 

IF(P7.GT. ( A.712A ) . AND . APHA . LT, 0. 0 ) BNG (NE + 1 ) =ANG ( NE + l )-6. 2 831 8 53 
IF(P7.GT. (A.712A ) .AND. APHA.GT.0,0 ) BNG ( N E ) =ANG ( NE ) + 6. 2331853 
1F{P7.LT. (-A. 712A ) . AND.APHA.GT.0.0 ) BNG( N E 4l ) =AN G ( NE+ 1 ) +6 . 28 3 1 853 
IF(P7.LT. (-A.712A) .AND .APHA. LT. 0. 0 ) BNG ( NE ) = ANG ( NE )-6 . 283 1 853 
BZER=BNG(NE)-APHA 

Bl=(-2.*BNG(NE4l |-A.«BNG(NE)+6.*APHA) /AL(NE) 

B2=( 3.*BNG(NE + 1 ) +3 . ^3NG ( N E )-6 . *APHA ) /AL ( NE )=«'*2 

PHI = BZER + ei=?‘SL+B2ASL**2 

PHIP=B1+2.*B2*SL 

YZtT=0.0 

ZZLT=0.0 

DO lOA JJ=1,N0GA 

P2=BZER + ei’^SL=*AXGlJJ ) +B2 ’♦ ( SL=*AXG ( J J ))**2 + APHA 
YZcT = YZE T + COS ( P2 )*SL^ AWG ( JJ ) 

10 A ZZtT=ZZET4SIN(P2 )«SL*AWGUJ) 

P3=Y ZET=<=SIN( PHI + APHA ) -Z Z ET+COS ( PH I + AP HA ) 

PA=YZET*COS( PHI + APHA) +ZZET*S INI PHI+ APHA ) 
tLR( 1,1) =SCTP 
cLR(2,l )=0.0 

ELR( 3,1) =(P3*CQS( PHI ) -PA* SIN (PHI ) )*SCTP 

<LLR( A,1 ) = SL*CGS( PFI)*SCTP 

cLR( 5 ,1 ) =-SL**2*SIN( PHI ) *SCTP 

cLR( 6, 1 I =-SL**3^SIN( PHI )*SCTP 

tLR(7, I ) = 5L«^2*CGS(PHI )*SCTP 
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cLR( a,l ) = SL*^3*C0‘:( PH n*SCTP 
cLR(2t2 ) =SCTP 

tLk(3,2) = (P3=*'SIN( PHI )+PA*CO£ ( PHI ) )«SCTP 

ti.K( 4. 2 ) = SL*S IN(PHI ) >^SCTP 

tLR( 5,2 )=SL«^2^CCS(PHI)*SCTP 

tLR( 6,2> =SL**3*CGS{PHI)*SCTP 

ELK( 7,2 J = SL**2=^SIN(PHI)«SCTP 

cLk( 8 ,2 ) =SLv^3*SIN{ PHD^SCTP 

cLR( 3,3) =(P3^*2 + P4’^*2)*SCTP+SCRP 

£Lk( 4,3)=P3^SL*SCTP+SL*PHIP*SCRP 

tLkl 5,3) = PA*SL*=«'2’!'SCTP + 2.*SL*SCRP 

tLk( 6,3) = P4^SL=**3*SCTP+3.*SL**2«SCRP 

fcLR(7,3) = (P3*SCTP4PHTP*SCRP)<'SL«*2 

cLK( 8,3) = (P3*SCTP + PHIP=^SCRP)*SL**3 

ELk( 4,4) = ( SCTP + PHIP^'^2*SCRP)’^SL’*«2 

cLk< 5,4 ) = 2.<'SL^A2'»PHI P^SCRP 

tLR(6,4) =3.*SL**3*PHI P*SCRP 

£LR( 7,4 ) = ( SCTP + phIP^’!'2*SCPP)^SL*-*'3 

cLK( 8,4) = ( SCTP + PH!P4*2’«'SCRP)'*'SL*^4 

fcLR( 5,5 ) = SL**4*SCTP+4.=»‘SL*^2*SCRP 

t;LR(6,5 ) =SLA#5^SCTP+6.*SL*43’^SCRP 

tLR(7,5 ) =2.*SL*43^PHI P’J'SCRP 

cLR( 8,5)=2.*SL**4>*PHIP»'SCRP 

tLR (6,6) =SL**6*SCTP+P.*SL**4*SCRP 

£Lk( 7,6)=3.*SL’**4^PHIP*SCRP 

cLR ( 8,6) = 3.*SL=«'*54PHI P>»=SCRP 

fcLR( 7,7 ) = ( SCTP+PHIP’^>5'2’«‘SCRP)*SL**4 

fcLR( 8,7) =( SCTP+PHIP*4 2>«‘SCRP)*SL**5 

cLR(8,8 ) = (SCTP + PHIP*’^24SCRP)*SLv*6 

DU 12 1=1,7 

IP1=I+1 

DO 12 J=IP1,8 

12 fcLR( I , J)=ELR( J,I ) 

DO 13 I=l,e 

DO 13 J=l,8 
£LRR( I, J )=0.0 
DU 13 K=l,8 

13 cLRR( I, J ) = ELRR( I, J ) + ELR( I,K)’?'AA(NE,K, J) 

DO 14 1=1,8 

DO 14 J=l,8 
ELRP ( I, J )=0.0 
DU 14 K=l,8 

14 ELRPt I, J ) = ELRP( I , J ) ♦■ A A( NE ,K, ! ) *ELRR ( K , J ) 

CALL ASSEVINE, IK,ELRP,SPRIN, ICOL,NI) 

10 CONTINUE 

1 IF(NURU .EG.O) GO TO A 

k£AD( MREAD,3 ) SCTU,SCRU, (NRST( I ) , NREUd ) , I=1,N0RU) 

3 FURMAT(2E15,6 ,815 ) 

DO 15 10=1, NQRU 
NSTAT=NRST(IG) 
i\iEND = NREU( IQ ) 

DU 16 IR=1,NEND 
Nh=(NSTAT-l) + IR 
IF(NE .GT. IK) NE=NE-IK 
P5=Z(NE+1 )-Z(NE) 

P6=Y( NE+1 )-Y (NE) 

P7=ANG(NE+1)-ANGINE) 

APHA=ATAN( P5/P6 ) 

IF(P6.LT.0.0 .and. P5.lt. 0.0) APH A= AP HA-3 . 14 1 59 2 6 5 
IF(P6.LT.O.O .AND. P5.GE.C.0) APH A=APHA+3 . 14 1 59 26 5 
BNG( NF+1 ) = ANG(NE4l ) 
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6NG(NE)=ANG(NE) 

IF ( P7 .GT. (4.7124 ) . AND . APHA . LT. 0. 0 ) BNG ( NE + 1 ) = ANG ( NE + 1 )-6. 2831 853 
IF(P7.GT. (4.7124) .AND. APH A. GT. 0.0) BNG(NE ) = ANG(NE ) + 6. 2331853 
IF(P7.LT. (-4. 7124) . AND.APHA.GT.O.O) BNG(NE+1 ) = ANG ( NE+ 1 ) +6 . 28 31 353 
1F(P7.LT. (-4.7124) , AN D . AP HA .L T . 0. 0 ) BNG(NE ) =ANG( NE )-6. 2831 853 
BZcR=BNG(NE)-APHA 

61=(-2.*BNG(NE+1 ) -4. * 3NG ( NE ) + 6. « APH A ) /AL ( NE) 

B2=( 3.-4BNG(NE4 1 )+3.*BNG(NE )-6.«APHA ) /AL (NE )**2 
DG 102 1=1,3 
DG 102 J=l,8 

102 ELR(I,J)=0.0 
Du 103 J=1,NQGA 
ZET = AL(NE )*AXG( J) 

PHIP=ei42,=«'e2*ZET 
PHI=BZER+Rl*ZET+e2^ZET**2 
W£T=AL(NE )>«<AWG{ J) 

YZET=0.0 

ZZtT = 0. 0 

DG 105 JJ=1,NGGA 

P2 = BZER+B1#ZET*AXC-( JJ ) + 82’»(ZET^i‘AXG( JJ ) )**2 + APHA 
YZfcr = YZe7+CQS (P2)=j«ZET*AWG{ JJ) 

10 5 ZZtT=ZZET + SIN(P2 )#ZET’»AWG ( JJ ) 

P3=YZET*SIN(PHI + APHA)-ZZET*C0S(PHI+APHA ) 

P4=YZET*C0S( PHI + APHA )+ZZET*SIN( PHI + APHA ) 

ELR(1,1) = ELR( 1, 1 )4SCTU’^WET 

£LK(3,1 ) =ELR(3, 1 ) 4 ( P3 *00 S ( PH I )-P4«S IN(PHI ) )*SCTU*WET 

ELR(4, 1 ) = ELR ( 4 , 1 ) 4ZETKQ S ( PH I )*SCTU<'WET 

ELR(5,1 )=ELR (5,1 )-ZET^*2*SIN(PHI )*SCTU*WET 

fcLR(6,l )=ELP (6,1 )-ZET**3’^SIN(PHI )=«'SCTU*WET 

ELR( 7,1 )=ELR ( 7, 1 ) 4ZET »*2*C0S ( PHI ) ’^'SCTU^WE T 

tLR( 8 ,1 )=ELR( 8, 1 )4ZET^*3*C0S( PHI )’^=SCTU*WET 

ELR( 2,2)=ELR( 2,2)4SCTU#WET 

£LR(3,2 )=ELR(3, 2)4(P34SIN(PHI )4P4*C0S(PHI ) ) ♦SCTU+WET 

hLR(4,2) =ELR{4,2) 4ZE'!-'^SIN(PHI )*SCTU*WET 

£LR( 5,2)=ELR( 5 , 2 ) 4ZE T««2*C05 ( PHI )»SCTU*WET 

ELR( 6,2 ) = ELR (6, 2 )4ZET'»*3«C0S( PHI ) ’S'SCTU-i'WE T 

£LR( 7,2 )=ELR( 7,2 )4ZET-»A2*«SIN( PHI ) =«SCTU*WET 

ELR(8,2 ) = 6LR( 3, 2 )4ZET*=«'3*SIN( PHI ) =<‘SCTU*=WET 

ELR(3,3 ) = £LR (3,3 ) 4( ( P 2 4 P4*«2 ) *SCTU 4SCR U ) *WE T 

ELK (4, 3 ) =ELR (4, 3 ) 4{ P3 4SC TU4-PH I P^SCRU ) *Z ET«WE T 

ELR( 5,3)=ELP (5, 3)4(P4*ZET«*2ASCTU4-2.*ZET*SCRU)*WET 

ELR(6,3) =ELR(6,3)4(P4«ZET**3*SCTU+3.*ZET«*2*SCRU)*WET 

£LR( 7,3)=ELR ( 7 , 3 ) 4 ( P 3 4SC TU4-PH IP>*SCRU ) *Z ET**2*WE T 

ELR( 8,3) = ELR(9,3)4(P3*SCTU4PHIP^SCRU)*ZET’«'*3*WET 

£LK(4,4) =ELR (4,4 ) 4{SCTU4PHIP**2=?SCRU) *ZET*#2*WET 

£LR( 5,4) = ELR( 5,4 ) + 2. ^ZET*’5'2>*'PHIP*SCRU’«'WET 

£LR(6,4) =ELR (6,4 )43.^ZET«*3*PHIP*SCRU*WET 

£LR( 7,4) =ELR (7,4) 4(SCTU4PHIP**2‘«'SCRIJ ) *ZET*^3*WET 

ELK( 8,4)=ELR ( 8, 4 ) 4 ( SC TU4PHJP**2*‘ SCR U ) ET**4* WE T 

tLR( 5 ,5) = ELR (5,5 )4(ZET^’!‘4>^SCTU+4,*ZET*<--2*SCRU)«WET 

cLR( 6,5) =ELR(6,5)4(ZET*>!'5’^SCTU4-6.*ZET«*3 *SCRU)vWET 

ELR(7,5) = 5LR(7, 5 ) 42. ZET '^i'3*PHI P*SC RU«WE T 

ELk( 8,5) = ELR(8,5 ) 42 . ZET =^'44>^PH I P + SC RU*W ET 

ELR( 6,5) =ELR ( 6 , 6 ) 4 ( Z E 7*« 6*SCTU4-9. ♦ZE 7*» 4* SC RU )* W E7 

£LR(7,6 ) = ELR(7,6 )43.*ZET=5‘«4*PHIP-XSCRU*WET 

ELH( 8,6) =ELR{8,6)43.*ZET^*5*PHIP*SCRU*WE7 

£LR( 7,7)=ELR(7,7)4(SC7U4PHIP*«2^SCRU)=*=ZE7*«4*WE7 

ELK( 8,7 ) = ELR (8,7 )4(SC7U4PHIP*<=2vSCRU)*ZE7**5*WE7 

ElR( 8,8) =ELR( 8, 8)4(SC7U4PHIP*’«=2vSCRU)*ZET4*6#WE7 

103 LGN7INUE 
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DJ 5 1=1,7 
IP1=I+1 
UU 5) J=TP1,8 
£LR{ I,J )=ELR( J, I ) 

U J 6 1=1,8 

UU 6 J=l,8 
ELRR ( I, J ) = C.O 
OU D K=l,8 

6 tLRR ( I , J )=ELRR( I , J ) + E LR ( I ,K ) AA ( NE , K, J ) 

DO 7 1= 1 , 8 

DU 7 J=1 ,8 
ELRP ( I, J )=0.0 
DU 7 K= 1,8 

7 tLRP ( I , J J =ELRP( I , J ) + AA(NE,K, I ) + ELRR(K, J ) 
it> CALL ASSEM(NE,IK,ELRP,SPRIN,ICOL,NI) 

15 CONTINUE 

^ IFINBCGND .EG. 0) RETURN 

DU Vl I=1,N3CGND 
JT4=N0DE8( I )*4 
JT4M3=JTA-3 
JT‘tM2=JT^-2 
JThM1=JTA-1 

CALL ERC ( JT4M3,SPRIN,M, ICGL ) 

1F(NBC( I ) .EO. 1 .OR. NeC(I).E0.2» CALL E RC ( J T4R1 , S PR I N ,NI » ICOU 

1F(NBC( I ) .E0.2 .OR. NBC(I).E0.3) CALL ERC ( JTAM2 , SPR I N , Nl , ICOL ) 

91 CONTINUE 

RETURN 
END 


SUBROUTI NE TSTEP ( AMASS, ST IFK, DENS , YOUNG , KROW ,NDEX , N I RREG, DELT AT ) 
C TO FIND DELTAT IF IT IS NOT SPECIFIED 

DIMENSION AMASS (1 ) ,ST I FK ( 1 » , T R lAL ( 205 ) , VMULT ( 205 ) , VECTR ( 205 ) , 
#KRUW( 1 » ,NDEX( 1 ) 

COMMON /FG/ IK,NCGA, NFL,NSFL,NI, I COL ( 205 ) , NBCONC , N PC ( A ) , NODE B (4 ) 
v,Y(51 J ,Z( 51 » ,ANG(5l ) ,H(5l ) 

COMMON /TAPE/ MR E AD , M V.R I TE , MPUNCH 
DO 3 K=1,NI 
3 TRIAL(K)=1.0 

IF(NBCOND .EO. 0) GO TO 90 

DO 91 I=1,N8CCND 

JT4=N0DEB( I I *4 

JT4M3=JT4-3 

JT*tM2=JT4-2 

JT4M1=JT4-1 

CALL ERC ( JT4M3, STIFK ,NI , ICOL ) 

TRIAL (JT4M3)=0.0 

IF(N6C( I ).E0. 1 .OR. NRC(I».E0.2) CALL ERC ( JT4M1 , ST I FK ,N I , ICOL ) 
1F(NBC( I) .EO. 2 .OR. NBC(I).E0.3) CALL ERC ( JT4M2 , ST I F K , NI , I COL ) 
1F(NBC( I ).EQ. 1 .OR. NPC(I).E0.2) TRI AL ( JT4M 1 > =0. C 
iF(NBC{ I ).E0.2 .OR. NRC(I).E0.3) TR I AL ( JTAM2 ) =0 . 0 
91 CONTINUE 

90 MRANK=NI 

BONE=0. 

EPSLN=1.0E-07 
2 B0LD=1.0 

DU 14 IKK=1,4 
DU 12 ILL=1,50 
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DU 4 I=l,yp.ANK 
4 VMULT(I)=0.0 

CALL OMIJLT(STIFK,TRI AL, ICCL,NI,VMULT,KRQW,MDEX»NIRREG) 

CALL SOLV( AMASS, VVULTfVECTR, !COL, KROW,NDEX,NI tNIRREG) 

BNEW=-l. 

DU 6 K=1 ,MRANK 

IF(BNEW- ABS(VECTR(K) ))6C,60,6 
60 BNtW= AB5(VECTR(Kn 

6 CONTINUE 

OQ 7 K=1,MRANK 

iFCBNEW- ABS(VECT9(K)) >7,8,7 

7 CONTINUE 

8 MRuW=K 

BNtW = VECTR(K ) 

DO 9 K=1 , VRANK 

9 TRIAL(K)=VECTP(K) /BNEV 

IF( ABS( RNEW/BOLD-l.O J-EPSLM) 15, 15, 10 
C ITERATION 

10 BKTH-BOLD 
BULD=BNEW 

12 CONTINUE 

EPSLN=EPSLN*1C. 

14 CONTINUE 

C NOT CONVERGING AFTER IL>^IK ITERATIONS 

EPSLN=1. 0 
BUNE= BNEW 
GO TO 32 

C EIGEN VALUE FOUND 

15 BONE=BNEW 

32 WRITE (MWR ITE ,24 ) (TP I AL ( J ) , J = 1 , N I ) 

24 FORMAT(/,< EIGEN VECTOR OF HIGHEST MODE • , / , 1 8X , • V * , 14X , • W ’ , 13 X 

*PSI ' ,12X, 'CHI' ,/, ( llX,4E15.6n 

EREQ= SORTIYOUNG’t'BGNE/DENSJ 
FACTCL=0,8 

DELTAT=FACTCL42./FREC 

WRITE(MWRITE,25)FR5Q 

25 FjHMAT(/,» highest NATURAL FREQUENCY (RAD/SEC) =*,E17.8) 

RETURN 

END 
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5.4 JET 30: Variable Thickness Arbitrarily Curved Ring; 


Houbolt's Timewise Operator 


The JET 3D program consists of the following main programs and subroutines; 


1. 

JET 3D 

2. 

ASSEM 

3. 

ASSEF 

4. 

I DENT 

5. 

IMPULS 

6. 

PRINT 

7. 

JET 3D 

8. 

ASSEM 

9. 

ASSEF 

10. 

IDENT 

11. 

IMPULS 

12. 

PRINT 

13. 

ELMPP 

14. 

STRESS 

15. 

LOADEQ 

16. 

LOADFT 

17. 

QREM 

18. 

ERC 

19. 

FAC 

20. 

FICOL 

21. 

MINV 

22. 

OMULT 

23. 

SOLV 


MAIN PROGRAM 


MAIN PROGRAM 


(partial ring) 


f (complete ring) 


t 


Again, note that the subroutines in items 13 through 23 are common to each of 
these two groups of "control programs". 

The number of memory locations required is approximately 224,000 bytes. 

The subroutines LOADEQ, LOADFT, and QREM (No. 15 through No. 17) are the same 
as those listed in Subsection 5.3. The subroutines ERC, FAC, FICOL, MINV, 
OMULT, and SOLV (No. 18 through No. 23) are the same as those listed in Subsec- 
tion 5.2. To avoid needless repetition, only the main programs and subroutines 
No. 1 through No. 17 are listed in this subsection. 
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JET3D' MAIN PROGRAM FUR VARIABLE THICKNESS ARBITRARILY CURVED RING 
JET3D HUUBOLT OPERATOR 

PARTIAL RING ***=^=!' 

DIMENSION AMASS (2060), AA ( 50, 8 , 8 ) , T XG ( 6 ) , T WG ( 6 ) ,E S I 6 ) ,GFL( 50,3,6) , 
^INUMI 20 5) ,FMECH(205) ,HHALF ( 50) , KR0W(8) ,NDEX (8 ) , 

♦BMASS ( 2060 ),EPS{5),SIG(5) 

DIMENSION DOELO(205),DISUM(2-a5J,DIS(205),DISMl (205),0ISM2( 205) , 
♦FLR(205),FLN(205) ,FLVM( 205 ) , S T I FK ( 20 60 ) 

COMMON /TAPE/ MREAO, MW R IT E ,MPUNCH 

COMMON /FG/ I K ,NOGA, NF L,NS FL , NI , I CGL (205 ) , NBCG NO, N BC ( 4 ) , NO DE H ( ^ ) 
«,Y(5l),Z(51),ANG(51),H(51) 

COMMON /HM/ YCUNG,DS,C5,C6,ASFL(50,3,6,5),GZETA(50,3,6),SNO( 5) 
COMMON /VQ/ FLVA(205),DISP(205),OELC(205),SNS(50,3,6,5), 

♦ BINP(50,3) , BIMP( 50,3) ,SNP( 50,3,6,5) 

COMMON /BA/ BEP( 50 ,3 ,3 ,3) , AL(50) , AXG(3 ), AWG(3) ,C3 ( 50, 3),C4( 50, 3) 
COMMON /SC/ MCRIT,CRITS,8IG,16IG,BTIME,ISURF 

COMMON /FORCE/ Tl, AMPIFV, AMPIFW, T 2 , AMP2FV , AMP 2 FW, S LOPE V, SL OP EW , 
*AMPFV,AMPFW,N0FT1 ,N0FT2 ,N0FT3 , JE L E M ( 4 ) , ET A ( 4 ) ,RTOV (4) , RT0W(4 ) , 

♦ NSTF2(4),NELF2(4),RT02V(4) ,RT02W(4) , NSTF 3( 4 ) , NE LF 3 ( 4) , R T03 V ( 4 ) , 

♦ RT03W(4) ,FMl(4 ,8,2) ,FM2 (2,4 ,8,2) , FM3 A ( 2 ,4, 8 , 2 ) , FM3 B ( 2 , 4 , 8 , 2 ) 

COMMON /ELFU/ SPR I N ( 2060) , FQREF { 2 05 ) , NQR , NURP , NORU , NRE L (4 ) , 

♦ REX (4) ,NRST (4) ,NREU(4) 

MREAD=5 

MWRITE=6 

MPUNCH=7 

READ (MREAO, 1 ) B, DENS , I K, NOGA , NFL ,NSFL , MM , Ml , M2 

IKP1=IK+1 

PIE=3. 14159265 

READ(MREAD,ll ) (Y(I) ,Z(I) , ANG ( I ) ,H ( I ) , 1 = 1 , I KPl ) 

II FORMAT (4E15. 6) 

00 111 l=l,IKPl 

III ANG( I )=ANG( I ) *PI E/180. 

READ (MREAO, 2) CELT AT , C R IT S ,DS , P , (£PS(L),SIG(L),L=1,NSFL) 

1 F0RMAT(2E15.6/7I5) 

2 FORMAT (4E15.6/ (4E15.6) ) 

READ(MREA0,3) ( AXG ( K ) , K=1 , NOG A ) 

READ(MREAD,3) (AWG(K) ,K=1,N0GA) 

READ (MREAO, 3) ( TX G ( K ) , K= 1 , N FL ) 

REAOIMREAD ,3) (TWG(K) ,K=l,NFL) 

3 FORMAT (4F15. 10) 

NI=IKP1*4 

REAO(MREAD ,4) NBCOND, ( NBC ( I ) ,NODEB { I) ,1 = 1 , NBCONO) 

4 FORMAT (91 5) 

READ(MREA0,9) NQR , NO RP , NO RU 

9 F0RMAT(3I5) 

CALL lOENT (8,DENS,NQR) 

DO 70 IR=1 ,IK 
DO 70 J=1,N0GA 

RH=H(IR)^( l.-AXG(J))+H( IR + l)«AXG( J ) 

DO 70 K=1,NFL 

GFL( lR,J,K)=RH*TWG(K)*B/2. 

70 GZETA( IR, J ,K) =RH*TXG(K)/2 . 

ES(1) = S1G( 1)/EPS( 1) 

IF (NSFL-1 )77, 77,76 

76 DO 73 L=2,NSFL 

78 ES(L)=(SIG(L)-SIGlL-l))/(EPS{L)-EPS(L-D) 

77 ES(NSFL + 1)=0.0 
DO 79 L=1,NSFL 

79 SNC( L)=ES ( 1) ♦EPS (L ) 

YUUNG = ES(l) ,c-7 


DO 71 IR=l ,IK 
DO 71 J^ltNOGA 
DO 71 K=1,,\FL 
DO 71 L=1 ,NSFL 

71 ASFL ( IR,J ,K,L )=GFL(IR , J,K) +( ES ( L) -E S ( L + 1 ) ) /F S ( 1 ) 

DO 73 IR=1 ,IK 

7 3 HHALF( IRJ = (H( I R+ U+H ( I R )) / ?. /2 . 

DO 15 1=1,8 

15 ICCL(I)=1 

DO 16 1=3,IKP1 
IK<+= 1*4 
IK3=IK4-1 
IK2=IK4-2 
IKl=IK4-3 
JJ={ I-l)*4-3 
ICGL ( IK1)=JJ 
ICGL(IK2)=JJ 
ICOL ( IK3) =JJ 
ICOL ( IK4) = JJ 

16 CONTINUE 
INUM( 1)=1 

DO 99 1=2, NI 

99 INUMd ) = I-ICOL(I-l)+-INUM(I-l) 

DO 990 1= 1, NI 

990 I NUM{ I ) = I NUM( I )-ICOL ( I ) 

NI RREG=0 
INDEX=0 
I SET=1 

DO 116 1=1, NI 
L=ICOL ( I ) 

IF (ICOLd ) -I SET) 117, 116,1 19 
119 ISET=ICQL(I) 

GO TO 116 

117 NI RREG=NI RREG+1 

IF(NIRREG-NI/2)711,711 ,90 
711 KRGW{NIRREG)= I 

NDEX{NIRREG)=INOEX 
116 INDEX=INOEX+I-L 
90 CALL F ICOL (NI ,NI ,L, ICOL ) 

ISIZE=L 

WRITEIMWRITE, 17) L 

17 FORMAT!/, • SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX=',I5) 

CALL ELMPP( AMASS,STI FK,AA, I SIZE, DENS , YOUNG, 8) 

DO 23 L=1 , ISI ZE 
8MASS( L)=AMASS(L) 

23 SPRIN(L)=0.0 

IF (NQR .Eg. 0) GO TO 22 

CALL QREM( AA,AL, AXG, AWG) 

22 IF (OS. EQ. 0.0) GO TO 21 

C5=l./P 

C6=l ./OS/DELTAT 
21 DTSQ=DELTAT=!'=!=2 

C2=1./{2.«DELTAT**2) 

DO 25 IR=1,IK 
DU 25 J=1,N0GA 

RH=H( IR)*( l.-AXGU )) +H ( IR+1)*AXG(J ) 

C3 (IR, J)=Y0UNG*B4=RH 
25 C4(IR, J)=AL( IR)«AWG( J> 

MCRIT=0 
BIG=10.«* (-10 ) 
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I BIG=0 
I T=0 

T IME=0.0 

CALL IMPULS { DELT AT, AL) 

READ (MREAD.5) TBEGIN , T F INAL, AMPl FV , AMPIFW 
5 FORMAT (4E 15.6) 

IF(TFINAL ,EQ. 0.0) WR I T£ { MWR IT E , 48 ) 

48 FORMAT CO THERE IS NO TIME OEPENCENT FORCE DISTRIBUTION DURING 
* THIS RUN ' ) 

IFITFINAL .EQ. 0.0) GO TO 49 

CALL LOADEQI Y,Z,ANG,AL,NOGA,AXG,AWG,AA,TBEGIN,TFINAL, I,.> 

49 APDEN=0.0 

CALL PRINT ( I T, TI ME, HHALF , A PDEN , S PR I N , 8MA SS , C2 , NO R, K ROW , 
*NDEX,NIRREG,CINETU ) 

NREADF=0 
T1=TBEGIN 
NL0A0=2 
00 34 1=1 ,NI 

34 FMECH(I) = 0.0 

IFITBEGIN.GT.O.O .OR. TF I N AL . EQ . 0 . C ) GO TO 30 
NL0AD=1 

CALL LOADFT(TIME,NREAOF,FMECH,AL) 

CALL FAC( AMASS, ICOL,KROW,NDEX, IDET , MWR ITE , N I , N I RREG , INUM) 

CALL SOLVI AMASS,FMECH, ODELD, ICOL , KPCW , NDEX , NI , NIRREG) 

GO TO 31 

3C DO 32 1=1, NI 

32 D0ELD(IJ = 0.0 

31 00 33 1=1, NI 

33 01 SUM! I ) = 2.*DTSQ*DDELD (I )+6.=«'0ELD( I )+6 . »D I S P ( 1 ) 

MLOAD=NLOAC 

DO 35 I=l ,NI 
FLRII )=FMECH( I ) 

35 FLVM(I)=0.0 

CALL OMULT (BM ASS ,DI SUM, ICOL,N I, FLVN,KROW, NDEX, NIRREG ) 

DO 37 L=l, ISI ZE 

3 7 AMASS(L) = 6.*BMASS(U+DTSQ*(STIFK(L )-*SPRIN( L) ) 

CALL FAC( AMASS,ICOL,KROW,NDEX,IDET , ^WK ITE , NI , N IRREG, INUM) 

ITT=1 

TIME=ITT*DELTAT 
NL0AD=2 
DO 60 1=1, M 
FLVAI I ) = 0. C 

60 FMECH(I)=0.0 

IFITIME.LT. TBEGIN .OR. TI ME.GT .T F I N^L ) GO TO 38 
NL0A0= 1 

CALL LOADFT ( T I M E , NRE AOF , FM EC H ,AL ) 

33 DO 39 1=1 ,NI 

39 FLVMI I )=DTSQ*FMECH( I ) + FLVM{I ) 

CALL SOLVI AMASS,FLVM,DIS, I COL , K ROW , NOE X, N I ,NIRREG) 

DO 61 1=1, NI 

DELOI I )=DI SI I )-DI SPI I ) 

61 UI SMl I I )=DTSQ*DDELDI I ) -DI S 1 1 )+2 .=<=0 I SP I I ) 

DO 100 L=1,ISIZE 

100 AMASSIL) = 2.*BMASSIL)+DTSQ*ISTIFKIL )-»SPRINIL) ) 

CALL FACtAMASS,ICOL,KROW,NOEX,IOET , M<VR IT b , NI , N IRREG, INUM) 

IFIMLOAD .EQ. 2) GO TO 120 

APD=0.0 

DO 46 1=1, NI 

46 AP0=AP0+FLRI I )*DELDI I ) 

APOEN = APDEN+APD 159 


120 ITT=ITT+1 
TIME=ITT=s=DELrAT 

45 DO 121 I=1,NI 

DISM2 ( I ) = DISM1 (I ) 

DI SM 1( I ) = DISP ( I) 

DISPt I ) = DIS{ I ) 

FLK( I )=FMECH( I ) 

FLN( I )=FLVA{I ) 

FLVA( I )=0.0 
FMECH( I ) = 0 .0 
FLVM( I )=0.0 

121 OISUM( I ) = 5 .=*'0 ISP( I )-4. *DI SMK I )+DI SN2( I ) 

MLOAD=NLOAD 

CALL STRESS 

CALL OMULT (8M ASS , DISUM , IC tJL t N I , F LV M ♦KROW , M DE X, NI RR EG ) 

NL0AD=2 

IF(T IME.LT .TBEGIN .OR. T I ME. GT . TF I N AL ) GO TO 122 
NLQAD=1 

CALL LOADFTITIME ,NREAOF,FMECH,AU 

122 DO 123 I=1,NI 

123 FLVMII ) = I F MECH (I >-{2.^FLV Ad >-FLN( Id) *OTSQ+FL VM( I ) 

IFINBCOND .£Q. 0) GO TO 124 

DO 125 I=1,NBCQND 
JT4=NQDEfi ( U’5'4 
FLVM ( JT4-3 )=0 .0 

I F (NBC ( I ) . £Q. 1 .OR. NBC(I».EQ.2) F LVM ( JT4- 1 ) = 0 .0 
IF(NBCm.EQ.2 .OR. N8C(I).E0.3) F L VM ( JT4-2 ) =0 .0 

125 CONTINUE 

124 CALL SOLV( AMASS«FLVM,0IS» ICOL,KRGW,ADEX,NI tNIRREG) 

DO 126 1=1, NI 

126 DELO( I )=DI S( I )-OISP( I ) 

IF (MLOAD .EQ. 2) GO TO 41 

APD=0.0 

DO 42 1=1, NI 

42 APD=APD+FLR( I )*OELD ( I ) 

APD£N=APDEN+APD 
41 IT=ITT-1 

T IME= IT^DELTAT 

IF( IT.EQ.l ) CALL PRINT { IT , TI ME , UH AL F, APDEN , SPR IN, RMASS ,C2, NQR, 
»KROW,NOEX,NIRREG,CI NETO) 

IFdT-Ml) 130,140, 150 
140 M1=M1+M2 

CALL PRINTIIT, TIME, HHALF,APD£A,SPRIN,BMASS,C2, NQR, KROW, 
«NDEX,NIRREG,CINETO) 

130 IF(IT-MM) 120,170, 150 

170 IF(IBIG) 62,150,62 

62 IFdSURF-2 ) 64,65,65 

64 WRITEIMWRI TE, 66) B IG , I B IG , BT I ME 

66 FORMAT!///, • LARGEST COMPUTED STRAIN =*,E15.6,' OCCURS AT THE 

♦ INNER SURFACE MIDSPAN OF ELEMENT =',I3,' AT TIME (SEC.) =',E15.6) 

GO TO 150 

65 WRITE(MWRITE,67) B IG, I 8 IG, BT IME 

67 FORMAT!///,' LARGEST COMPUTED STRAIN =»,E15.6,' OCCURS AT THE 

♦CUTER SURFACE MIOSPAN OF ELEMENT =',I3,' AT TIME (SEC.) =',E15.6) 

150 CALL EXIT 

END 
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SUBROUTINE AS SEMI I R , I K , EL M AS , ST I EM t ICOL,NI » 
C PARTIAL RING 

' DIMENSION ELM ASI3 ,8) »NN(8 J ,ST IFMI 1 ) ,ICOL I 1 ) 

J 1^IR«4 
NN II ) = Jl-3 
NN(2)=Jl-2 
NNI3)=J1-1 
' NN(4)=Jl 

J2=I IR+11 <^4 
NN I5) = J2-3 
NNI6)=J2-2 
NN(7)=J2-L 
NN 18 ) = J2 

202 DO 402 1 = 1 ,8 
M = NNI I ) 

DO 402 J=1 ,8 
N=NNIJ) 

IFIM-N )402.403,403 
403 CALL F ICOL IM, N,L , ICGU 

STIFMI L) = STIF MIU +ELMAS 1 1 , J) 

402 CONTINUE 
RETURN 
END 


SUBROUTINE AS SEE I I R, I K , ELF P, FLV A ) 
C PARTIAL RING 

DIMENSION NN18),FLVAII),ELFPI1) 

J1 = IR*4 

NNIl)=Jl-3 

NNI2)=Jl-2 

NNI3)=J1-1 

NN|4)=J1 

121 J2=I IR + 1)=«‘4 
NNI5 ) = J2-3 
NNI6 )=J2-2 
NNI7)=J2-1 
NNI8 ) = J2 

123 DO 101 1 = 1 ,8 
M=NN I I ) 

FLVAIM ) = FLVAl M ) + ELFPI I ) 

101 CONTINUE 
RETURN 
END 


SUQROUT INE IDENT ( B ,0 EN S, N QR ) 

Q PARTIAL RING 

COMMON /TAPE/ MRE AD, MWR I T E ,MPUNCH 

COMMON /FG/ IK,NOGA,NFL,NSFL,NI, ICOHZ05) , NBCOND, N HC I 4 J ,N0 DE BI 4 ) 
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♦,Y(51),Z(51),ANG151),H(51) 

WRITE ( MWR ITE, I ) 8, DENS , IK , NOGA, NFL , NSFL 
1 FORMAT (• ***JET3D*«’>^ A SPATIAL FINITE ELEMENT AND HOUBOLT TFMPUR 

♦AL CPERATUR PROGRAM',/, » USED TO CALCULATE THE NONLINEAR RESPCN 
♦ SES OF A VARIABLE THICKNESS ARBITRARILY*,/,' CURVED PARTIAL RI 


♦ NG 

WITH THE 

FOLLOWING PARAMETERS 

* ,// 

f 

♦ • 

WIDTH 

OF 

RING !IN) 


= ',E15.6, /, 


DENSITY ! LB-SEC^*2/ IN*«4 ) 


= ',ET5.6,/, 


NUMBER 

OF 

ELEMENTS 


= • ,15 ,/, 

*• 

NUMBER 

OF 

SPANWISE GAUSSIAN 

PTS 

= ', 15,/, 

♦ » 

NUMBER 

OF 

DEPTHWISE GAUSSIAN 

PTS 

= • ,15 ,/ , 


NUMBER 

OF 

MECHANICAL SUBLAYERS 

=',I5) 

IF INBCOND 

.EQ 

. 0) GO TO 5 




DO 14 I = l,NBCOND 

IFINBCm .£Q. 1) WRI TEIMWRITE, 15) NODEB(I) 

IFINBCm .EQ. 2) WRITEIMWRITE,16) NOOEB(I) 
iFINBCin .EQ. 3) WRITE(MWRITE,17) NODEBI I ) 

14 CONTINUE 

15 FORMAT! • SY.MMETRY DISPLACEMENT CGNDITIQN AT NODE =',I5) 

16 FORMAT!' CLAMPED DISPLACEMENT CONDITION AT NODE =*,I5) 

17 FORMAT!* HINGED DISPLACEMENT CONDITION AT NODE =',I5) 

GO TO 18 

5 WRITE!MWRITE, 13) 

13 FORMAT!/,' THERE IS NO PRESCRIBED CISPLACEMENT CONDITION') 

18 IF INQR .EQ. 0 ) GO TO 19 
WRITEIMWRI TE ,20) 

20 FORMAT!/,' CONSTRAINTS lELASTIC F CUNDAT I ON/ S PRI NG ) AS DESCRIBED 
♦ BY INPUT ' ) 

GO TO 23 

19 WRITEIMWRI TE, 21) 

21 FORMAT!/,' THERE ARE NO ELASTIC SPRING CONSTRAINTS') 

23 IKP1=IK+1 

WRITEIMWRITE, 11) 

WRITE! MWR I TE, 12) ! I , Y! I ) , Z ! I ) , ANG ! I ), H ! I ) , 1= 1 , IKP 1 ) 

12 F0RMATI2! I 5,4E15.6)) 

1 1 FORMAT !/, ' NODE* ,7X, • Y* ,14X, * Z* , 12 X , ' S LOP E ' , 8X , * TH I CKN ESS • , 3X, 

=«=* N0DE',7X,'Y' ,14X,*Z* ,12X, 'SLOPE* ,8X, 'THICKNESS* ) 

RETURN 

END 


SUBROUTINE IM PUL S ! DE LT AT, A L) 

PARTIAL RING 
DIMENSION ALI50) 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI , IC0LI205) , NBCO NO, N BC ! 4 ) ,N0 DE 8 ! 4 ) 
*,Y!51) ,Z!51),ANG!51),H!51) 

COMMON /VQ/ FLVA! 205 ), DISP 1205) ,DELC! 205) , SNS! 50,3 ,6,5 ) , 

^BI NP! 50,3 ), BIMP 150,3) ,SNP! 50, 3,6,5) 

COMMON /TAPE/ MR E AD, MWR I TE ,M PUNCH 
DO 50 1=1, NI 
OELD!I)=0.0 
50 DISP!I)=0.0 

DO 51 IR=1 , IK 
DO 51 J=1,N0GA 
3INP ! IR, J )=0. 0 
BIMP! IR,J)=0.0 
DO 51 K=1,NFL 
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DQ 51 L=1 , NSFL 
SNP( IR ,J, K ,U =0.0 
51 SNS{ IR, J, K ,L )=0.0 

READ(MREAD,1 ) NV , I OT A , I OF B , I OTC 

1 E0RMAT(4I5) 

WRITE (MWRI TE, 2) DELTA! 

2 FORMAT!/, • TIME STEP SIZE USED IN PROGRAM (SEC) =',E15.6) 

IF(NV .EQ. 0) WRITE(MWRITE,4) 

IE(NV .GT. 0) WRITE(MWRITE,6) 

4 FORMAT!/, • THERE IS NO INITIAL IMPULSE •) 

6 FORMAT!/,' IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIOEJ BY 
» INPUT •) 

IF!NV .EQ. 0) RETURN 

IF (IOTA .EG.O) GO TO 10 
DO 20 IM=1,I0TA 

RE AD(MREAD,21 ) I E 1 , I E 2 , WR A D, WRAO 1, ANGV1,WRA02, ANGV2 

21 F0RMATI2I5/5E15.6) 

IE2M1=IE2-1 

DO 22 I 1 = 1 ,IE2M1 
I = IE1+II 

22 OELO! I»4-2 )=OELTAT<'WRAD 
D£L0!IEI*4-2 I =D£L TAT *WRAD 1 
OELD! IE1*4-1 ) =0ELTAT*ANGV1 
IE2P1= IE1 + IE2 

DEED! I E2Pl«4-2 )=DELTAT*WRAD2 
DELO! IE2P1*4-1 i=0ELTAT*ANGV2 
20 CONTINUE 

10 IF!IQT8 .EQ. 0) GO TO 41 

DO 30 IM=1,I0T8 

RE AD(MREAD,31 ) NODEV ,VRAD , WRAD, ANGV 
31 FORMAT! 15, 3E15.6) 

0ELD!N0DEV*4-3 ) = DELTAT *VRAD 
D£LD!NaD£V*4-2)=DELTAT*WRA0 
DELD(N00EV«4-l )=OELTAT*ANGV 
30 CONTINUE 

41 IFIIOTC .EQ. 0) GO TO 60 

DO 61 IM=1,I0TC 
REA0(MREAD,62 ) IS1,IS2,WRAD 

62 FORMAT !2I 5, El 5.6) 

TX=0.0 

DO 65 NN=1 ,I S2 
N£=! IS 1-1 ) +NN 
IF!NE .GT. IK) NE=NE-IK 
65 TX=TX+AL!NE) 

PIEP=3.14159265/TX 

DELD! IS 1*4-1 ) =WRAD*DELTAT*PIEP 

XX=0.0 

DO 63 11 = 1, IS2 
I =IS1+I I 
NE=I-1 

IF!NE .GT. IK) NE=NE-IK 
XX=XX+AL!NE) 

DELD! I *4-2)=WRAD*DELTAT*SIN!PIEP*XX) 

63 DELD! 1*4-1 )= WR AD* DELT A T *P I EP*COS ( P I EP *XX ) 

61 CONTINUE 

60 IFINBCONO .EQ.O) RETURN 

DO 40 1 = 1 , NBCCND 
JT4=N0DE8 ! I) *4 
DELD ( JT4-3 ) = 0 .0 

I F (NBC ( I ) . EQ. 1 .OR. NBC(I).EQ.2) D E LD( JT4- 1 ) =0 .0 
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I F (NBC ( I ) . EQ.2 .OR. NBC(I).EQ.3) U E LD ( JT^- 2 ) = 0 .0 
AO CONTINUE 
RETURN 
END 


SUBROUTINE PR INT ( I T, T I ME, HHALF , A PD£N, S PR I N , BMA SS ,C 2 , NQR, KRGW , 

♦ NDEXtNIRREG ,CINETO) 

C PARTIAL RING 

DIME NS ION COPY(bl) ,COP Z(51 ),HHAL F( 5 C ) , BEP S ( 3 1 , EPS I ( 50 ) ,EPSO( 50) 
DIMENSION FQREFI 1) ,BMASS{ 1 ),KROW{ I ) ,NDEX(l ) ,CI NE( 205) , SPRIN (1) 
♦,FAIL 1(50), FAILQI 50) 

COMMON /FG/ IK,N0GA,NFL,NSFL,NI, I C CL ( 2 05 ) , NBCOND, N BC ( 4 ) , NO DE B( A ) 

♦ ,Y(51),Z(51),ANG(51 ),H(51) 

COMMON /HM/ YOUNG, OS, C5,C6,ASFL( 50,3,6,5) ,GZETA(50, 3,6), SN0(5) 
COMMON /VQ/ FLVA(205) ,DISP(205),DELC(205),SNS( 50,3,6,5), 
♦BINP(50,3) , BIMP( 50,3) ,SNP( 50,3,6,5) 

COMMON /BA/ BEP(50 ,3,3 ,8) , AL(50) ,AXG(3 ),AWG( 3 ) ,C3 ( 50, 3 ) , C A ( 50, 3 ) 
COMMON /SC/ MCRIT,CRITS,BIG,IBIG,BT IME,ISURF 
COMMON /TAPE/ MREAD, MWR ITE ,MPUNCH 
DATA ASTER/'* •/, BLANK/' '/ 

DO 700 1=1, NI 

700 CINE(I)=0.0 

CALL OMULT {8MASS,0ELD, ICOL,NI ,C I NE , KRGW,NDEX , N IRREG) 

CINET=0.0 
DO 701 1=1 ,NI 

701 CINET=CINET+DELO(I )*CINE( I) 

CINET=CINET*C2 

IF(IT .EQ. 0) CINETO=CINET 

ELAST=0.0 

DO 702 IR=1, IK 

DO 703 J=1 ,NOGA 

SUM=0,0 

DO 70A K=1 ,NFL 
DO 70A L= 1 ,NSFL 

70A SUM=SUM*-SNS( IR ,J,K,L )**2*ASFL ( IR ,J ,K,L) 

703 ELAST=ELAST+SUM*CA (IR, J) 

702 CONTINUE 
SPDEN=0.0 

IF(NQR ,EQ. 0) GO TU 31 
DO 30 1=1, NI 

30 FQKEF(I)=0.0 

CALL OMULT (SPRIN, DISP, ICOL ,NI ,FQREF ,KROW , N DE X , NI RREG ) 

DO 32 1=1 ,NI 

32 SPDEN=SPDEN+DISP(I )*FQREF( I) 

SPDEN=SPDEN/2. 

31 ELAST=ELAST/Y0UNG/2. 

CINETT=CINETO+APDEN 
PLAST=CINETT-CINET-ELA ST- SPDEN 

WRITE (MWR ITE, 1 ) IT,T IM E , C I NETT , C I N ET , E L AST , PL A ST 



FORMAT ( //////,' 

J = ' , 

15, ' 

TINE (SEC. 

) 

« * 

TOTAL ENERGY 

I NPUT 

(IN.-LB.) 

= ',E15.6, 

/, 

♦ • 

K I NE T I C 

ENERGY 

(I N.-LB. ) 

= ' ,E15.6 , 

/, 

♦ • 

ELASTIC 

ENERGY 

(IN.-LB. ) 

= • ,E15.6, 

/, 

« • 

PLAST IC 

WORK 

(IN.-LB. ) 

= ',E15.6) 



IF(NQR .EQ. 0) GO TO 33 
WRITEIMWR I TE, 34) SPDEN 
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34 FORMAK* ENERGY STORED IN THE ELASTIC RESTRAINTS (IN.-L3.) 

♦ E15-6) 

33 IKP1=IK+1 

DO 11 I=l,IKPl 

COPY I I ) = Y( 1)+D IS P( I*4-3)*COS( ANG( I JJ-DISP( I *4- 2 ) * S I N ( A NG ( I ) ) 

11 COPZ( I) = Z{ I)<-DISP{ I*4-3)«S IN( ANGI I ) ) + OISP( I*4-2)=!=CUS (ANGI I J ) 

DO 601 IR= 1, IK 
DO 604 1=1,3 
BEPS( 1 )=0.G 
DO 604 K=l,8 
I NDEX= ( I R-l)*4+K 

604 BEPSI I ) = BEPS( I ) + 8EP( IR ,2, I ,KJ<=0ISP( INDEX) 

FARE = BEPS ( D + BEPS (2)**2/2 . 

FCUR=BEPS( 3) 

EPS I { IR)=FARE-HHALF( IR )«FCUR 
EPSO( IRJ=FARE4-HHALF( IR)*FCUR 
601 CONTINUE 

DO 60 IR=1,IK 

IFIEPSKIR) .LE. BIG) GO TO 61 
BIG=EPSniR) 

I BIG=IR 
I SURF= 1 
BTIME=T IME 

61 IF(EPSOdR) .LE. BIG) GO TO 60 

8IG=EPS0(IR) 

IBIG=IR 
I SURF=2 
BTIME = TIME 
60 CONTINUE 

WRITE(MWRITE,2) 

2 FORMAT!/, • I » , 5X, • V • , I IX, • W , 9X , *P S I • , 9 X, • C HI • , lOX , 'COP Y* , 

*8X, ‘COPZ' ,9X, • L' , IIX, *M«,7X, ‘STRAIN ( IN) *,4X, ‘STRAIN (OUT ) • ) 
IF(MCRIT .GT. 0) GO TO 50 
DO 51 1=1, IK 
FAILK I)=BLANK 
FAILO( I ) = BLANK 


IFIEPSKI ) .LT. 
FAILI ( I )=ASTER 

CR ITS) 

GO 

TO 

52 

IFIMCRIT .GT. 0) 

GO TO 

52 



MCRIT=l 

IFIEPSO(I) .LT. 
FAILO( I) = AST£R 

CRITS) 

GO 

TO 

51 

IFIMCRIT .GT. 0) 

MCRIT=1 

CONT INUE 

GO TO 

51 



IFIMCRIT .LE. 0) 
DO 53 1=1, IK 

GO TO 

50 




53 WRITE (MWRITE, 54) I ,OISP( I *4-3 ) , D IS P (I *4-2 ) ,DISP( 1*4-1) ,DI SP ( 1*4) , 
*COPY( I ) ,CUPZ( I ) ,BINP( I , 2) , 8 IMP( I ,2 ) ,EPS I ( I J ,FAILI { I ), 

*EPSO( I ) ,FAILO( I ) 

54 F0RMAT(I5 ,9E12.4,A2,E12.4,A2) 

WR ITE( MWR I TE , 54) IKP1,DI SP ( IKP 1*4-3) ,DI SP{ I KPi*4-2 ) , D I S P ( I K P I *4-1 ) 
*,DISP( IKP1*4) ,CGPY( IKPI ) ,C0PZ( IKPl ) 

WRITE ( MWRI TE , 55) ASTER 

55 FORMAT (//, 5X, A2, • STRAIN EXCEEDS THE CRITICAL VALUE‘) 

RETURN 

50 DO 21 1 = 1 , IK 

21 WRITEIMWR I TE,22) I,DISP( I*4-3),DISP( 1*4-2) , D I SP ( 1*4- 1 ) , 01 SP ( I *4 ) , 
*COPY( I ) ,COPZ (I ) ,BINP( I , 2) , BIMP (I ,2 ) , EPS I ( I ) , EPSOI I ) 

22 FURMAT(I5,9E12.4,2X,E12.4) 
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non 


WRITE ( MWRI TE ,2 2) I KPl ,D I SP( IK P 1*4-3 ) , DI SP ( I KP 1 *4-2 ) , 0 I S P ( IK PI *4-1 ) 
*,DISPIIKP1*4) , CUPYI IKPl ),COPZI IKPl ) 

RETURN 

END 


JET3D MAIN PROGRAM FOR VARIABLE THICKNESS ARBITRARILY CURVED RING 
JET3D HQUBOLT OPERATOR 

COMPLETE RING ***** 

DIMENSION AMASS! 2060) , AA( 5 0, 3 , 8 ) , T XG ( 6 ) , T WG ( 6 ) , ES ( 6 ) , GFU 5 0 , 3 , 6 ) , 
*INUM(20 5) , FMECH(20 5),HHALF ( 50) ,KROW( £) , NDEX (8) , 

*8MASS(2060) ,E P S ( 5 ) , SI G ( 5 ) 

DIMENSION DDELDI 205) ,D I SUM (205) ,DI S (205) ,DI SMI (205) ,01 SM2(205) , 
*FLR(205 ),FLN(2 05) ,FLVM(205 ) ,ST IFK ( 2060 ) 

COMMON /TAPE/ MREAD.MWRITE ,MPUNCH 

COMMON /FG/ IK,NOGA, NFL,NSFL,NI ,IC0L(2 05) , NBCOND,NBC ( 4),N0DEB(4) 
*,Y(51),Z(51),ANG(51),H(51) 

COMMON /HM/ YOUNG, 0S,C5,C6,ASFL( 50, 3,6,5) ,GZ£TA(50 ,3,6 ) ,SN0(5) 
COMMON /VQ/ FLVA(205 ),DISP(205),DELCI205),SNS( 50,3,6,5), 

*BINP( 50,3) , BIMP (50,3) ,SNP{ 5 0,3,6,5) 

COMMON /BA/ BEP( 50,3,3,8) ,AL( 50) ,AXGt3),AwG(3) ,C3 { 50, 3 ) ,C4 ( 50, 3 ) 
COMMON /SC/ MCRIT,CRITS,BIG,IBIG,BTIME,ISURF 

COMMON /FORCE/ T 1 , AM PI FV, AMP IFW , T2 , AMP2FV , AMP2 FW , S LOPE V ,SL OPEW , 
*AMPFV,AMPFW ,N0 FTl , N0FT2 , NO FT3 , JEL EM ( 4 ) , ETA ( 4 ) , R TOV ( 4) , R TOW ( 4 ) , 
*NSTF2( 4) ,NELF2 (4) ,RT02V{4) ,RT02W(4) , NST F3 ( 4 ) , NE LF3 ( 4 ) , RTU3V ( 4 ), 
*RT0 3W(4),FM1(4,8, 2),FM2(2, 4,8,2) , FM 3A ( 2 ,4, 8 , 2 ) , FM3B ( 2 , 4 , 8, 2 ) 

COMMON /ELFU/ SPR I N ( 20 60 ) , FQREF ( 20 5 ) , NQR, NO RP, NO RU , NREL ( 4 ) , 
♦REX(4),NRST(4) ,NREU(4) 

MREAD=5 

MWRITE=6 

MPUNCH=7 

READ (MREAD,1) B,DENS , I K ,NOGA , NFL , NS FL , MM , M 1 , M2 

IKP1=IK+1 

PIE=3.1415S265 

READ(MREAD ,11 ) lY ( I ) ,Z ( I) , ANG ( I ) , H ( I ) , 1= 1 , I K ) 

II FORMAT (4E 15.6) 

DO 111 1 = 1 ,IK 

III ANGI I )=ANG ( I ) *PI E/180. 

Y ( IKPl ) = Y { 1) 

Z(IKP1) = Z(1) 

H( IKP1)=H( 1) 

ANGI IKPl ) = ANGI 1) 

READ (MREA0,2 ) DEL T AT , C R IT S ,DS , P , ( E PS ( L ) , S I G( L ) ,L= 1 , NSFL ) 

1 F0RMAT(2E 15.6/71 5) 

2 FORMAT (4E15.6/ (4E15.6) ) 

READ(MREAD,3) (AXG(K) ,K=1,NCGA) 

READ IMRE AD, 3) ( AWG(K) ,K=1, NOG A) 

READ (MREAD,3) I TXG { K) , K= 1 , NFL ) 

READIMREAD ,3) (TWC(K) ,K=1,NFL) 

3 FORMAT (4F15. 10 ) 

NI=IK*4 

READIMREAD ,4) NBCOND, I NBC ( I) ,NODEB ( I) , 1=1 , NBC UNO) 
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4 FORMAT (91 5) 

READ (MREAD,9) NQRt i«lD RP f NO RU 
9 FORMAT(3I5) 

CALL IDENT( 8,DENS,NQR) 

DO 70 IR=1,IK 
DO 70 J=1»NUGA 

RH = H(IR)*( l.-AXG(J)] +-H( IR+1)*AXG( J ) 

DC 70 K=1,NFL 

GFL( IR,J,K)=RH*TWG(K)«a/2. 

70 GZETA( IRf J ,K)=RH*TXG(K )/2. 

ES(l) = SIG(U/EPS(l) 

IF(NSFL-l) 77, 77,76 

76 DO 73 L=2,NSFL 

7 8 ES(L) = (SIG(L)-SIG(L-1) )/(EPS(U-EPS (L-l) ) 

77 ES (NSFL+l)=0.0 
DO 79 L=1 , NSFL 

79 SNO(L)=ES( 1)*EPS( L) 

YOUNG=ES ( I ) 

DO 71 IR=1 ,I K 
DO 71 J=1,NQGA 
DO 71 K=1,NFL 
DO 71 L=1,NSFL 

71 ASFL(IR,J,K,L)=GFL(IR, J,K)*(ES(L)-ES(L + 1) )/£S( 1) 
DO 73 IR=1 ,IK 

73 HHALF(IR)=(H( IR+1H-H( IR))/2./2. 

DO 15 1=1,8 

15 IC0L(I)=1 
IKM1=IK-1 

DO 16 1=3, IKMl 
IK4=I«4 
IK 3= IK 4-1 
IK2=IK4-2 
I K 1=1 K 4-3 
JJ = ( I-U*4-3 
ICOLI IKl ) = JJ 
ICOL ( IK2)= JJ 
ICOL( IK3)=JJ 
ICOL( IK4) =JJ 

16 CONTINUE 
ICOL( IK*4)=1 
ICOL I1K*4-1) = 1 
ICOL ( IK*4-2)= 1 
ICOL( IK«4-3)=1 
INUM( 1 ) = 1 

DO 99 1 = 2, NI 

99 INUMd ) = I-IC0L(I-1)+INUM( I-l) 

DO 990 1=1, NI 

990 I NUM( I )=I NUMII )-ICOL ( I ) 

NIRREG=0 

INDEX=0 

ISET=1 

DO 116 1=1, NI 
L=ICOL ( I ) 

IF (ICOL (I )-IS FT 1117, 116, 119 
119 ISET = ICOL(I) 

GO TO 116 

117 NI RREG=NI RREG+1 

IF(inIRREG-NI/2)711,711,90 
711 KRCW ( NI RREG) = I 

ND£X(NIRREG)=INDEX 
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116 INDEX=INDEX+I-L 
90 CALL FICOL (NI ,NI ,L,IC0L) 

ISIZE=L 

WRITE(MWRITE,17) L 

17 FUKMATC/,* SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX = ',I5) 
CALL ELMPPI AMASS.STI FK,AA, I S I ZE, DENS , YOUNG , B ) 

00 23 L=1 , ISI ZE 
BMASS ( U = AMASS (L ) 

23 SPRIN(L) = 0.0 

IF (NQR .EQ. 0) GO TO 22 

CALL QREM( AA,AL,AXG,AWG ) 

22 IF(DS.EQ.O.O) GO TO 21 

C5=l./P 

C6=1./DS/DELTAT 
21 OTSQ=DELTA T^^f'Z 

C2=l./ {2.«DELTAT**2) 

DO 2 5 IR=1 ,IK 
DO 25 J=1,N0GA 

RH=H( IR)«( l.-AXG( J )) +H( IR<-1)«AXG( J ) 

C3(IRt J)=YCUNG*8*RH 
25 CAIIR, J) = AL(IR)*AWG( J) 

MCRIT=0 

BIG=10.**(-10) 

IBIG=0 

1 T=0 

T IME=0.0 

CALL IMPULS ( DELT AT, AL) 

R£AD(MREAD,5) TB EGIN , T F IN A L, AMPl FV , AMP 1 FW 
5 FORMAT (4E15. 6) 

IFITFINAL .EQ. 0.0) WR I TE ( MWR IT E , 48 ) 

48 FORMATCO THERE IS NO TIME DEPENDENT FORCE DISTRIBUTION DURING 
♦ THIS RUN ' ) 

IFITFINAL .EQ. 0.0) GO TO 49 

CALL LOADEQI Y,Z ,ANG, ALfNOGA ,AXG,AWG,AA, TBEGIN,TF INAL) 

49 AP0EN=0.0 

CALL PRINT ( IT, TI ME, HHALF , A POEN ,S PR I N , BMASS , C2, NQR, KROW , 
*NOEX,NIRREG,CINETO) 

NREAOF=0 
T1=TBEGIN 
NL0AD=2 
DO 34 1=1 ,NI 

34 FMECH(I)=0.0 

IFITBEGIN.GT.O.O .OR. TFI N AL .EQ . 0, 0 ) GO TO 30 

NL0AD=1 

CALL LOADFT(TIME,NREADF ,FMECH ,AL) 

CALL FAC(AMASS,ICOL,KROW,NDEX,ID£T ,MWRITE,NI,NIRREG,INUM) 

CALL SOLVI AMASS,FMECH, DDELD, ICOL , KRCW , NDEX ,NI , NIRREGi 
GO TO 31 

30 DO 32 1=1, NI 

32 DDELD(I) = 0.0 

31 DO 33 1=1, NI 

33 0ISUMm = 2.*DTSQ«DDELD(I)+6.*0ELUlI )+6.*DISP(I ) 

MLOAD=NLOAC 

DO 35 1=1 ,NI 
FLR{ I )=FMECH( I ) 

35 FLVM( I )=0.0 

CALL OMULT (BMASS ,DI SUM , IC OL , N I , F LV M ,KRQW , N DEX , N IRR EG ) 

00 37 L=1,ISIZE 

3 7 AMASS (U = 6.*BMASS(LJ+DTSQ*{STIFML )+SPRIN(L) ) 

CALL FAC(AMASS,ICOL,KROK,NDEX,IDET , NWR ITE , NI , N IRREG, INUM) 
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ITT=1 

T IME=I TT=«=DELTAT 
NL0AD=2 
DO 60 1-L fM 
FLVA{ I ) = 0.0 

60 FMECH(I)=0.0 

IF ( TIME.LT.TBEGI N .OR. TI ME. GT . T F I N AL I GO TO 38 
NLQAD= 1 

CALL LOADFT (TIME,NREADF,FMECF,AU 
38 DO 39 1=1, M 

39 FLVM ( I )=DTSQ*FMECH(I H-FLVM( I ) 

CALL SOLV( AMASS, FLVM, D IS, I COL , K ROW , NOE X, N I , N I R REG ) 

DO 61 1=1, NI 

OELO( I )=DIS{ I )-DISP( I ) 

61 01 SMI ( I ) = DTSQ*OOELD( I ) -DIS (I H-2.«DISP( I ) 

DO 100 L=1,IS IZE 

100 AMASS (L) = 2 .♦BMASS (L) +DT SQ * (ST I FK ( L ) *S '’R IN ( L > ) 

CALL FAC( AMASS,ICOL,KROW,NDEX, lOET , NWRl TE , N I , N I RRE G, I NUM ) 
IFCMLOAD .EQ. 2) GO TO 120 
APD=0. 0 
DO 46 1=1, NI 

46 APD=APD+FLR( I )*DELD( I ) 

APDEN=APOEN+APO 

120 ITT=ITT+1 
TIME=ITT*DELTAT 

45 DO 121 1=1, NI 

0ISM2( I) = DISM1( I ) 

DISMl ( I) = DISP( I) 

DISP(I)=DIS(I I 
FLR( I )=FMECH{ I ) 

FLNl I)=FLVA(I ) 

FLVA( I )=0.0 
FMECH( I ) = 0.0 
FLVM( I )=0.0 

121 DISUM( I )=5,«0I SP( I i-4. *01 SMK I ) + 0I SM2( I ) 

DO 40 K=1 ,4 
DISP(IK*4+-K)=DISP(K) 

40 DELD( IK*4 + KJ=DELD(K) 

MLQAO=NLOAO 

CALL STRESS 

CALL OMULT (BM ASS ,OISUM , IC QL, N I , F L V M ,KR0W , N DE X, NIRREG) 
NL0AD=2 

IFITIME.LT.TBEGIN .OR. TI ME.GT.TF I NAL> GO TO 122 
NLGAD=1 

CALL LOADFT(T1ME,NREAOF,FMECF,AL) 

122 DO 123 1=1, NI 

123 FLVM{ I ) = (FMECH (I )-l2 .*FLV A ( I )-FLN( I )) )«DTSQ+FL VM( I ) 
IFINBCOND .EQ. 0) GO TO 124 

DO 125 1 = 1 ,NBCGND 
JT4=N0DEB( I)*4 
FLVM( JT4-3)=0.0 

IFINBCni.EQ.l .OR. NBC(I).EQ.2) FLVM( JT4- 1 ) = 0 .0 
IF (NBC ( I ) . EQ-2 .OR. NBC(I).EQ.3) F L VM ( JT4-2 ) =0 .0 

125 CONTINUE 

124 CALL SOLV( AMASS, FLVM, DIS, ICOL,KROW,NDEX,NI , NIRREG) 

DO 126 1=1, NI 

126 DELOm=OIS(I )-DISP( I) 

IF(MLDAD .EQ. 2) GO TO 41 
APD=0.0 

DO 42 I = l ,NI 
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42 APO=APD + FLR( I )*DELD( I ) 

APOEN=APDEN+APD 
41 IT=ITT-1 

TIME=IT*DELTAT 

IFCIT-EQ. I ) CALL PRINT ( I T , TI ME ,HHALF, APDEN, SPR IN, BMASS ,C2, NQR, 
«KROW,NDEX,NIRREG,CINETQ ) 

IFUT-MU 130,140,150 
140 M1=M1+M2 

CALL PRINT (IT, TIME, HHALF,APDEN,SPRIN, BMASS, C2, NOR, KRGW, 
♦NDEX,NI RREG ,CI NETO) 

130 IFUT-MM) 120,170, 150 

170 IF(IBIG) 62,150,62 

62 lF(ISURF-2) 64,65,65 

64 WRITE(MWRIT£,66i B IG, I B IG , BT IME 

66 FORMAT!///,' LARGEST COMPUTED STRAIN =',E15.6,' OCCURS AT THE 

♦ INNER SURFACE MIDSPAN UF ELEMENT =*,I3,' AT TIME (SEC.) =',E15.6) 

GO TO 150 

65 WRITEIMWRI TE, 67) B IG , I BIG , BT I ME 

67 FORMAT!///, • LARGEST COMPUTED STRAIN =',E15.6,» OCCURS AT THE 

♦CUTER SURFACE MIOSPAN OF ELEMENT =*,I3,' AT TIME (SEC.) =',E15.6) 

150 CALL EXIT 

END 


SUBROUTINE AS SEMI I R, IK , ELMAS , ST I FM , ICOL , N I ) 
C COMPLETE RING ♦♦♦♦♦ 

0 I MENS ION ELM AS! 8, 8) ,NN(8 ) ,STIFM( 1 ) ,ICUL( 1 ) 
J1=IR^4 
NN( l)=Jl-3 
NN(2)=Jl-2 
NN(3)=JI-1 
NN(4)=J1 

IF(IR-IK) 203,204,204 
2C3 J2=(IR+1)*4 

NN(5)=J2-3 
NN(6)=J2-2 
NN(7)=J2-1 
NN (8 ) = J2 
GO TO 202 
204 NN(5)=1 

NN(6 ) = 2 
NN(7)=3 
NN(8) = 4 

202 DO 4 02 1 = 1 ,3 
M=NN(I) 

DO 402 J= 1 ,8 
N=NN( J) 

IF(M-N)402,403,403 
403 CALL F ICOL (M,N,L, ICOL) 
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STIFM(L) = STIFM(L)+ELMAS(I,J) 
402 CONTINUE 
RETURN 
END 


SUBROUTINE AS SEF ( I R , I K , ELF P,FLVA) 
C COMPLETE RING ***** 

DIMENSION NNI 8) ,FLVA( 1 ) ,ELFP( 1 ) 

J1=IR«4 

NNIl )=Jl-3 

NN(2)=Jl-2 

NN(3)=J1-1 

NN(4)=J1 

IF(IR~IKJ 121,122,122 

121 J2=(IR+1)*4 
NN(5)=J2-3 
NN(6)=J2-2 
NN(7)=J2-1 
NN(8)=J2 

GU TO 123 

122 NN{5I=1 
NN (6)=2 
NNI7 ) = 3 
NN(8i=4 

123 DO 101 1=1,8 
M=NN(I ) 

FLVA(M)=FLVA( M) + ELFP(I ) 

101 CONTINUE 
RETURN 
END 


) 


SUBROUTINE I DENT { B ,DENS ,NGR) 

***** COMPLETE RING 

COMMON /TAPE/ MREAD, MWR IT E ,MPUNCH 

COMMON /FG/ I K,NOGA,NFL,NSFL,NI , ICCL (205) , NBCOND, NBC (4),NQDEB{4) 

♦ ,Y(51),Z(51 ),ANG(51),H(51) 

WRITE (MWRITE,!) B,0ENS , IK , NOGA,NFL , NSFL 

FORMAT (• *«4=JET3D»** A SPATIAL FINITE ELEMENT AND HOUBuLT TEMPOR 
♦AL OPERATOR PROGRAM*,/,' USED TO CALCULATE THE NONLINEAR RESPON 
*SES OF A VARIABLE THICKNESS ARBITRARILY',/,* CURVED COMPLETE RI 
♦NG WITH THE FOLLOWING PARAMETERS ',//, 


** WIDTH OF RING (IN) 

** DENSITY ( LB-SEC*=^2/IN**4) 

** NUMBER OF ELEMENTS 

** NUMBER OF SPANWISF GAUSSIAN PTS 

♦* NUMBER OF DEPTHWiSE GAUSSIAN PTS 

♦* NUMBER OF MECHANICAL SUBLAYERS 

0) GO TO 5 


, E15.6, /, 
,E1 5.6, /, 

,15,/, 

, 15 ,/ , 
,15,/, 

, 15 ) 


IF (NBCOND .EQ 
DO 14 1=1, NBCOND 

IF(NBC(I) .EQ. 1) WRITE(MWRITE, 15 ) NaOEB(I) 
IF{N8C(I) .EQ. 2) WRI TE(MWRI TE, 16) M)DEB(I) 
IF(NBCd) .EQ. 3) WRITE(MWRITE,17) NODEBd) 
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lA CONTINUE 

15 FORMAT!* SYMMETRY OISPLACEMENT CONDITION AT NUDE =*,I5) 

16 FORMAT! • CLAMPED DISPLACEMENT CONDITION AT NODE =',I5) 

17 FORMAT!' HINGED DISPLACEMENT CONDITION AT NODE =',I5) 

GO TO 18 

5 WRITEIMWRI TF, 13) 

13 FORMAT!/,* THERE IS NO PRESCRIBED DISPLACEMENT CONDITION*) 

18 IF!NUR .EQ. 0) GO TO 19 

WR ITE IMWRITE, 20) 

20 FORMAT!/,* CONSTRAINTS ! ELASTIC FGUNDAT I ON/S PRI NG) AS DESCRIBED 
♦ BY INPUT * ) 

GO TO 23 

19 WRITE!MWRITE,21) 

21 FORMAT!/,* THERE ARE NO ELASTIC SPRING CONSTRAINTS*) 

23 IKP1=IK+1 

WRITEIMWRI TE, 11) 

WRITEIMWR ITE, 12) I I,Y! I),Z!I),ANG! I ) ,H ! I ) , I = 1 , IKPl ) 

12 FQRMAT(2!I5,AE15.6)) 

1 1 FORMAT ! /, * NODE* ,7X, * Y* ,14X, * Z* , 12 X,* SLOPE* , 8X , • TH ICKNESS* ,3X, 

** NODE* ,7X, *Y* , 14X, *Z* , 12X, 'SLOPE', 8X, 'THICKNESS') 

RETURN 

END 


SUBROUTINE I MPULS ! DELT AT , AL) 

Q ***** COMPLETE RING 

DIMENSION AL!50) 

COMMON /FG/ I K,NOGA, NFL,NSFL ,NI , ICCLI205) , NBCOND, N BC ! 4 ), NO OE B! 4 ) 

♦ ,Y(5I),Z(51),ANG!51),H! 51) 

COMMON /VQ/ FLVA!205),OISP!205),DELCI205),SNS! 50, 3,6,5), 

♦ BIN P! 50,3) , BIMP! 5 0, 3) ,SNP! 50,3,6,5) 

COMMON /TAPE/ MREAD, MWR IT E,MPUNCH 
DO 50 1 = 1, NI 
DELD! I )=0.C 

50 DISP!I)=0.0 
DO 51 IR=1,IK 
DO 51 J=1,N0GA 
BINP! IR,J) =0.0 
BIMP! IR, J )=0.0 
DO 51 K=1 , NFL 
DO 51 L=1,NSFL 
SNP! IR,J,K,L)=0.0 

51 SNS! IR,J,K ,L) =0.0 
REA0!MREAD,1 ) NV , I OTA , I 0TB ,IOTC 

1 FORMAT !4I 5) 

WRITE ! MWR I TE ,2) DELT AT 

2 FORMAT!/,* TIME STEP SIZE USED IN PROGRAM !SEC) =*,£15.6) 

IF!NV .EQ. 0) WRITE!MWRITE,4) 

IFINV .GT. 0) WRI TE!MWRITE ,6) 

4 FORMAT!/,* THERE IS NO INITIAL IMPULSE *) 

6 FORMAT!/,* IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY 

♦ INPUT •) 

IF !NV .EQ. 0) GO TO 43 
IF!IOTA .EQ.O) GO TO 10 
DO 20 IM=1,I0TA 

READ ! MREAD, 21 ) lEl , I E2 , WR A D, W R AD I , ANGV 1, WR ADZ , ANGV2 
21 F0RMATI2I 5/5E15.6) 
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IE2M1=IE2-1 

DO 22 II=1,IE2M1 

I=IE1+II 

IF(I .GT. IK) I=I-IK 
22 DELD( I *4-2 )=0£LTAT«WRAD 

DELD( IEl*4-2)^CELrAT*WRA01 
OELD( IE1*4-1 ) =DELTAT*ANGV1 
IE2P1= IE1+ IE2 

IF(IE2Pl .GT. IK) IE2Pl=I E2P1-IK 
OELO( IE2P1+4-2 )=DELTAT*WRAD2 
0£L0(IE2P1*4-1 )=0ELTAT*ANGV2 
20 CONTINUE 

10 IFdOTB .EQ. OJ GO TO 41 

DO 30 IM=1 , lOTB 

READ(MREAD,31 ) NQDEV , VRAD , URAD,ANGV 
31 FORMAT (15, 3E15.6) 

DELD(N0DEV*4-3 ) = DELT AT *VR A C 
D£LD(N0DEV»4-2 )=DELTAT*WRAD 
0ELD(N0DEV*4-1 )= DELT AT *ANGV 
30 CONTINUE 

41 IFIIQTC .EQ. 0) GO TO 60 

DO 61 IM=l,IOTC 
REA0(MREA0,62) IS1,IS2,WRAD 

62 FORMAT (215, E15. 6) 

TX=0.0 

DO 65 NN=1,IS2 
NE*( ISl-1 )+NN 
IF(NE .GT. IK) NE=NE-IK 
65 TX=TX+AL(NE) 

PIEP=3.14159265/TX 

DEL0( IS1»4-1)=WRAD*DELTAT*PIEP 

XX=0.0 

DO 63 I 1 = 1 ,IS2 
I=ISl + II 
NE=I-1 

IF(I .GT. IK) I=I-IK 
IF(NE .GT. IK) NE=NE-IK 
XX=XX+AL(NE) 

OELD( I *4-2 )=WRAD*OELTAT*S IN(PIEP*XX ) 

63 DEED! I *4- 1 )=WRAD*DEL TA T*P I EP*COS ( P I EP* XX) 

61 CONTINUE 

60 IF(NBCOND .EQ.O) GO TO 43 

DO 40 I=1,NBC0N0 
JT4=N0DEB ( I)*4 
DELD( JT4-3)=0.C 

IF (NBC( I ) . EQ. 1 .OR. NBC(I).E0.2) D£ LD ( J T4- 1 ) = 0 .0 
IF (NBCd ) .EQ.2 .OR. NBCd).EQ.3) D E LD ( JT4- 2 ) =0 .0 
40 CONTINUE 

43 DO 44 K=l,4 

DISP( I K*4+K)=DISP(K) 

44 DELO( IK*4+K)=DELD(K) 

RETURN 

END 


SUBROUTINE PRINT ( I T , T I ME , HHALF , A PD EN , S PR I N , BM A SS , C2 , NQR, KR OW , 
*NDEX,NIRREG,CINFTO) 
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C COMPLETF RING 

DIMENSION COPY! 51) ,COPZ( 51 ),HHALF( 5 C) » BE P 5 { 3 ) , EPS I ( 5 0 ) , EPS 0(50) 
01 MENS ION FQREFd ) ,13MASS( 1 ),KRflW( 1 ) ,N DEX ( 1 ) , C I NE ( 205 ) , SPRI N (1) 
*,FAILI( 50) ,FAILO(50) 

COMMON /FG/ I K,NOGA, NFLf NSFL,NI , ICOU 2 05) , NBCJND, N BC ( 4 ) ,NUOE B( 4 ) 
♦♦Y(51 ) «Z(51 ),ANG(51 ),H(51) 

COMMON /HM/ YOUNGf DS ,C5,C6,ASFL( 50 t 3, 6, 5) , G ZE T A { 50 , 3 , 6 ) ,SN0(5) 
COMMON /VQ/ FLVA(205),DISP(205),DFLC(205),SNS( 50,3,6,5), 
*BINP(50,3),BIMP(50,3),SNP(50,3,6,5) 

COMMON /BA/ 8£P(50,3,3,3),AL(50),AXG(3),AWG(3) ,C3( 50, 3 ) ,C4 ( 50, 3 ) 
COMMON /SC/ MCRITfCRIT S ,BIG, IBIG, BT IME, ISURF 
COMMON /TAPE/ MREAO, MWRITE .MPUNCH 
DATA ASTER/'* •/, BLANK/ • •/ 

DO 700 1 = 1 ,NI 
700 CINE(I)=0.0 

CALL OMULT(8MASS,OELO,ICOL,NI,CINE,KROW,NOEX,NIRREG) 

C INET=0.0 
DO 701 1=1, NI 

7C1 CINET=CINET*DELO(I )*CINE( I ) 

CINET=CINET*C2 

IF(IT .EQ. 0) CINETO=CINET 

ELAST=0.0 

DO 702 IR= 1, IK 

DO 703 J=1 ,NOGA 

SUM=0.0 

DO 704 K=1,NFL 
DO 704 L=1,NSFL 

704 SUM=SUM + SNS( I R , J , K ,L ) **2*A SFL (I R , J t K , L) 

703 ELAST=ELAST+SUM*C4(IR, J) 

702 CONTINUE 
SPDEN=0.0 

IF(NQR .EQ. 0) GO TO 31 
DO 30 1=1, NI 

30 FQREF(I)=0.0 

CALL OMULT (SPRIN,0ISP, ICOL ,NI , FQRE F ,KR OW , N DEX , N I RR EG ) 

DO 32 1=1, NI 

32 SPDEN=SP0EN+0 ISP( I )»FQREF ( I ) 

SPDEN=SPDEN/2 . 

31 £LAST=ELAST/Y0UNG/2.' 

C I NETT=CI NETO+APOEN 
PLAST=CINETT-CINET-ELAST-SPDEN 

WRITE (MWRITE, 1 ) IT ,T I ME ,C I NE T T, C I N E T, E LAST , PLA ST 
1 FORMATCl J=',I5,' TIME (SEC.) =',E15.6,/, 


♦ • 

TOTAL ENERGY 

INPUT 

(IN.-LB. ) 

= ',E15.6 ,/ 

♦ • 

KI NET IC 

ENERGY 

(IN.-LB. ) 

= ',E15.6,/ 

« • 

ELASTIC 

ENERGY 

(IN.-LB.) 

= ' ,E15.6,/ 

♦ • 

PLASTIC 

WORK 

(IN.-LB.) 

= *,E 15.6) 


IFINQR .EQ. 0) GO TO 33 
WRITEIMWRITE, 34) SPDEN 

34 FORMAT!' ENERGY STORED IN THE ELASTIC RESTRAINTS (IN.-LB.) =', 

♦E15.6) 

33 DO 1 1 1=1, IK 

COPY( I )=Y I I) + DISP( 1*4-3 ) *CCS (ANG( I ) )-OISP( 1*4-2) *S INI ANG( I ) ) 

11 CGPZI I )=Z( I)+DISP( I*4-3)*SIN{ ANG( I ) )+DISP( I *4-2 ) *COS ( ANG ( I )) 

DO 601 IR=1, IK 
DO 604 1=1 ,3 
BEPSI I ) = 0.0 
DO 604 K=1 ,8 
INDEX=(IR-1)*4+K 

604 BEPS ( I )= BEPSI I ) + BEP( IR , 2, I ,K ) *D I SP ( INDEX) 
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FARE=BEPS( 1) + BEPS(2) =('^2/2 . 

FCUR=8EPS ( 3) 

EPSI ( IR) = FARE-HHALF( IR )*FCUR 
EPSU{ IR) = FARE+HHALF{ IR J^FCUR 
601 CONTINUE 

DO 60 IR=1»IK 

IFIEPSKIR) .L£. BIGJ GO TO 61 
BIG=EPSI ( I R) 

I8IG=IR 

ISURF=1 

8TIME=TIME 

61 IFIEPSOIIR) .LE. BIG) GO TO 60 

8IG=EPS0( 1 R) 

IBIG=IR 
ISURF=2 
BTIME=TIME 
60 CONTINUE 

WKITEIMWRITE, 2 ) 

2 FORMAT!/,* I • , 5X , • V • , 1 IX , • w • , 9X , *PS I • , 9X , • C HI • , 1 OX , 'COP Y • , 

«8X, *COPZ* , 9X, * L* , IIX, *M • , 7 X , * STRA I N ( IN) * ,4X , ' ST RAIN (OUT )• ) 

IF(MCRIT .GT. 0) GO TO 50 
DO 51 1=1, IK 
FA IL I ( I )=8LANK 
FAILO! I )=8LANK 

IFIEPSim .LT. CRITS) GO TO 52 
FAIL!! I) = ASTER 
IFIMCRIT .GT. 0) GO TO 52 
MCRIT=1 

52 IFIEPSOm .LT. CRITS) GO TO 51 
FA ILO! I)=ASTER 

IFIMCRIT .GT. 0) GO TO 51 
MCRIT = 1 

51 CONTINUE 

IFtMCRIT .LE. 0) GO TO 50 
DO 53 1=1 , IK 

53 WRITEIMWRI TE ,54) I ,DI SP(I <=4-3 ) ,D I S P ( I <=4-2 ) ,OISP( I<=4-1 ) , DI S P ( I<=4 ) , 
<=COPY( I ) ,COPZ( I),BINP(I,2),BIMP(I,2),EPSI(I),FAILI(I), 

♦ EPSO( I ) ,FAILO(I ) 

54 F0RMAT(I5,9E12.4,A2,E12.4,A2) 

WRITE (MWRITE, 55) ASTER 

55 FORMAT!//, 5X,A2, ’ STRAI N EXCEEDS THE CRI T I C A L V ALU E ' ) 

RETURN 

50 DO 21 1=1 , IK 

21 WR ITEIMWRI TE ,22) I ,DI SP( I<=4-3) ,DI SP ( I<=4-2) ,DISP (1<=4-1 } , D I SP ( I <=4 > , 

♦ COPY! I ) ,COPZ! I ) ,8 INP! I, 2), 8 IMP!1 , 2) , EPS I! I ) ,EPSO( I ) 

22 F0RMAT!I5,9E12.4,2X,E12.4) 

RETURN 
END 

SUBROUTINE EL MPP ( AMAS S, S T IFK , AA , I S I Z E , DEN S, YOUNG , B ) 

TU FIND THE MASS MATRIX STIFFNESS MATRIX AND STRAIN NODAL 
DISPLACEMENT TRANSFORMATION MATRICES 

DIMENSION A(8,8),AAI50,8,8).LMK8),MMI!8) ,D(8,8),ELM!S,3) , 

♦ ELMAS ! 8,8 ) .AMASS! 1 ),E(8,3),EK1(8,8),ELK!8,8),STIFK!1), 

♦ BE1(3.3,8 ),BNG!51 ) 

COMMON /FG/ IK,NGGA,NFL,NSFL,NI, I COL (20 5) , NBCOND , N fiC ( 4 ) , NODE 8 ! 4) 
^,Y(5I) ,Z(5l),ANG(51),H(5l) 

COMMON /3A/ BEP(50,3,3,e),AL(50),AXG!3),AWG!3) , C3 ( 50 , 3 ) , C4! 5 0, 3 ) 
CuMMON /TAPE/ MREAD, MWR I TE ,MPUNCH 
UJ 18 L=1,ISIZE 
STIFK(L )=0.0 
16 AMASS(L)=0.0 

50 Du 101 IR=1,IK 
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P5=Z( IR+1 )-Z( IR ) 

P6=Y( IR + 1 )-Y( IR ) 

P7=ANG( I R*1 )-ANG ( IR ) 

APHA=ATAN( P5/P6) 

IF(P6.LT.O.O .AND. P5.LT,0.0» APHA= A PHA-3 . lA 1 59 2 65 
IF(P6.LT.0.0 .AND. P5.GF.0.0) AP H A= APHA + 3 . 1 A 1 592 65 
1F(P7 .to. 0.0) GO TO 60 

AL( IR )=P7^S0RT( P5^*2 + P6’^’'2)/SIN( P7/2. J/2. 

&U TJ 61 

0 AL(IR)=SQRT(P5«t2+P6**2) 

1 BNG( IR+1 )=ANG(IR+1 ) 
bNG( IR)=ANG( I P) 

IF(P7 .GT. ( A.712A ) . AND . APH A . LT. 0. 0 ) BNG ( I R+ 1 ) = ANG ( IP + 1 )-6.2 831853 
IF(P7.GT.(A.712A) . AND. APH A .GT. 0. 0 ) BNG(IR) = ANG( I R ) +6. 2331 8 53 
IF(P7.LT. {-A. 7 12 A) . AND . APH A.GT . 0. 0 ) BNG( IR +1 ) = AN G ( IR + 1 ) +6. 283 1853 
IF(P7.LT. 1-A.712A) .AND.APHA.LT.O. 0) BNG( IR) = ANG( I R ) -6 . 2831 853 
BZER = BNG( IR )-APHA 

bi=(-2.*8NG( IR+1 )-A.TBNG( IR)+6.TAPHA)/AL( IR) 

B2=( 3.=«=BNG(IR+1 ) + 3.TBNG( IR )-6.*APHA ) /AL( IR)**2 

DO 102 1=1,3 

UU 102 J=l,8 

All. J)=O.G 

E(i . J)=0.0 

02 D(I.J)=0.0 

A(l,l)= CGS(BNG( IR)-APHA ) 

A<1.2)= SIN(8NG( IR)-APHA ) 

A(2. 1 )=-SIN(8NG( IR l-APHA ) 

A(2,2)= C0S{8NG(IR)-APHA ) 

A(3,3)=l. 

A(5, i)=COS(BNG( IR + D-APHA) 

A{5,2)=SIN(BNG(IR + n-APHA) 

A(5. 3) = P6*SIN (BNGnR+l) )-P5*CDS(BNG( IR + 1 ) ) 

A<6, 1 ) = -SIN (BNG ( IR + 1 )-APHA) 

A(6,2) = C0S (8NG( IR + D-APHA) 

A(6, 3)=P6*C0S (BNG (IR + 1) ) +P5TSIN(BNG( IR + 1 ) ) 

A(7, 3)=1 . 

A(A, A)=l. 

A(5, A)=AL( IR) 

A(5.7 ) = AL ( IR )T*2 
A(5, 8)=AL( IR)«*3 
A(6, 5)=AL( IR )**2 
A(t>,6 ) = AL( IR)=»>>3 
P8=bl+2.’^'B2^AL( IR ) 

A(7,A)=AL( IR)*P8 
A(7,3) = 2.*AL( IR) 

A(7,6) = 3.*AL(IR)*'*'2 
A(7. 7 ) = AL( IR )«*2*P8 
A(7,8) = AL (IR)T<'3*P9 
A(8, A)= 1. 

A(8. 5 ) = -AL ( IR )*T2’)P3 
A(8,6) = -AL(IR )*+3TP3 
A(<J, 7 )=2.TAL( IR ) 

A(d,8 )=3.^AL( IR)*T2 

CALL MINV( A.8 ,DET ,LMI ,M.wi ) 

Liu 52 1 = 1,8 
DO 52 J=l,8 

2 AA( IR,I , J)=A( I , J) 

DU 103 J=1,N0GA 
ZET=AL( IR )*AXG( J) 

RH=H( IR + I )*AXG( J)+H( IR)^ ( l.-AXG( J) ) 


176 



RI=RH**3 /12. 

PHIP = Bl+2.’«'B2*ZET 

Pril = BZER + Bl*ZET + P2'^Z'^T*^2 

WET = AL( I R >=S'AWG( J) 

YZtT = 0. 0 
ZZET = 0.0 

DJ lOA JJ=1,NGGA 

P2=8ZEP+B1=>»'ZET’!'AXG( JJ )+8 2 >»( ZE T*AXG ( J J 2+APHA 
VZtT = YZET+COS(P2) *ZET*AWG(JJ > 

104 ZZET=ZZET+SIN(P2 )«ZET1«AWG( JJ ) 

P3=YZET-^SIN( PHI+APHA) -ZZET=^COS( PHI + APHA ) 
P4=YZET’«'C0S( PI-I + APHA )4ZZET*SIN(PHI + APHA ) 
D(i,i»=D( 1,1)+RH*WET 
012.2 )=D( 2.2 )+RH^WET 

0(3. i )=0( 3. 1 ) 4( P3 4CQS (PHI )-P4*SIN(PHI ) )*RH*WET 
0( 3. 2 ) = D( 3,2 ) ♦( P3*SIN (PHI )+P4*C0S(PHI ) I^pRH^WET 
0(3. 3) = 0(3,3)+{ P3*^2’*‘RH+P4*A2*RH + Rn *WET 
0(4. 1)=0(4,1)+ZET*COS(PHI »«RH*WET 
0(4.2)=D(4.2)+ZET*SIN(PHI )«RH*WET 
0(4.3 ) = D(4,3 ) + ( P3’»ZET+RH4 ZE'^*phip*RI )«WET 

0(‘t.4)=D(4.4) 4( PH + PH! P*«2*RI ) #ZET=«'*2«WET 
0(5,1) = 0(5. 1 )-ZET-^4' 2^51 N( PHI )^RH#WET 
0(6.1 )=0(6,1 )-ZET4-^3-^SIN (PHI )*RH*WET 
0( 7. l)=D(7.1) + ZET**2’^COS(PHI )*RH<‘W£T 
0(8. 1) = D(8.1)+ZET4*3’^C0S(PHI )*RH»WET 
0(5.3) = D(5,3)+(P4 42ET4A2 *rh+ 2.*ZET»RI )*WET 
0(6. 3 ) = D ( 6.3) + ( P44-ZST’»*3*RH+3,*ZET=«'=<«2*RI )*WET 
0(7.3 ) = 0( 7,3 ) 4( P3’*'RH + PHIP’»RI ) *ZE T’«'*2*WE T 
0(b,3) = D(8,3)+(P34RH+PHIP4RI ) ♦ZET^=«‘3*WET 
0(5.4) = 0( 5,4) + 2.=»ZET*«2*PHrP»'RI>J=WET 
0(6,4 ) = D(6,4 )43. AZET>^'*3*PHIP’^RI=f'WET 
0(7.4)=D(7,4) + ( PH + PHI P*x<2*RI ) ♦ZET#*3=('WET 
0(8,4)=D(8,4)4( RH4PHIP**24 RI ) ♦ze T#» 4* WET 
0(5.5) = D(5,5)4( ZET*^4 + RH44.*ZET**2*R I )-'>‘WET 
0(6. 5)=D( 6,5) 4( ZET*#54RH46.>^ZET=<'*3*RI j’t'WET 
0(7.5 ) = D(7,5)42. *ZET**3*PHIP*RI4«WET 
0(8, 5 ) = D( 8,5 )42. ’»ZET**4*PHIP*RI=^WET 
0(6,6) = 0(6,6)4( ZET**6 4RH46 .*zET*«4»PI )»WET 
0(7, 6 1 = 0 (7, 6 )43.*ZET*4A*PHIP*RI>pWET 
0(8. 6) = 0(8, 6) 43. ’♦ZET*4^« PH Ip4tRi»WET 
0(7,7)=D(7.7)4( RH4PHI P^«2*RI ) *ZET*»4*WET 
0(a,7) = D(8,7)4{ PH 4PHI P*^*2 4RI ) ’!=ZET** 5’»‘WET 
0(8,8)=D(3,8)4( RH4PHI P*>('2 4RI ) *ZET**6 + WET 
DO 201 M=l,3 
OU 201 N=1,B 
201 Btl( J.M, N)=0. C 
Bcii J.l, 4 ) = 1. 

BEK J.l, 5)=-ZET4*2=^PHIP 
BEK J.l, 6)=-ZET#’J'3’^PHIP 
Btl( J.1,7 )=2.*ZET 
BEK J ,1 , 8 )=3.’»ZET**2 
BEK J ,2, 3 ) = 1. 

Bi-K J.2 ,4 ) = ZET’t^PH IP 
BEK J,2,5)=2.*ZET 
BcK J.2, 6 )=3.>^ZET**2 
BEK J.2,7 )=ZET*4 2^PHI P 
BEK J ,2, 8 ) = ZET=«'«3'*PHI P 
BEK J, 3, 4 )=-PHIP-ZET4 2,->'-B2 
BcK J,3,5)=-2. 

BcK J , 3, 6 )=-6.=^ZE I 

Btl( J.3. 7 )=-2.*ZET4 Ph IP-ZET**2*2.*B2 
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b£l( J,3, 8 )=-3.’?ZET**2-*PHTP-Z8T*^3=^'2.*B2 

DU 202 M=1,3 

Du .l 0 2 N=l,8 

BtP ( IP, J , P,N )=0.0 

Du 202 K = 1 ,5 

20 2 BEP ( IR» J ,P,N )=BEPnP, J,v,N) + bE1( J,M,K)*A(K,N) 
Ti=PHIP+ZET^2.^82 
T2=2. *ZET^PHIP+Z£T=»==^2*2.’'e2 
T3=3. «Z.E T’^*2*PHIP + ZET**3=*'2.>^e2 
) = E(4,4) + ( PH4T1A’»2^PI)*'WET 
fc( 5.4 ) = E ( 5,4) + (-ZET*^2*PHIP*RH+2.^Tl*RI ) =«^t<ET 
L(6.4) = E(6.4) + (-ZET^'^3=*^PHIPApH+6.*ZET*Tl*RI )=^WET 
E(7,4)=E (7,4) + (2.-»ZET=*RH + T2*TI»R I )*WET 
fc(d,4) = E( 8,4) +( 3.«ZET*«2’^RH+T3*T1=*'RI )’i'WET 
h(5.5) = E(5,5 ) + ( ZET**4*PHIP«*2*RH + 4.=f'RI ) vWET 
E(6.5 ) = E (6.5 ) + ( ZET**5*PHIP**2’pRH+12.»ZET + RI ) *WET 
E(7. 5 )=E( 7,5)+(-2.*ZET*’«=3*PHIP*PH+2.»T2^Rn«‘WET 
c(6, 5 )=E ( 8,5 ) + (-3.’^ZET*>»4*PHIP>sRH + 2.’<'T3*RI )»WET 
E(o.6 » = E(6,6 ) + { ZET’^*6’‘PHIP’?'’f'2*RH+36.*ZET*v2*RI )*UET 
E(7,6 ) = E (7,6 ) + (-2.’^ZET**4*PHIP*RH + 6.*ZET*T2X'RI )*WFT 
E(b,6 )=E (8.6) + (-3.*ZET^’^5'*PHIP=«=RH+6.*ZET*T3*R I )#WET 
fc( 7. 7 ) = E ( 7,7) + (4. *ZET**2*RH+T2v«2<'RI )*WET 
E(B,7 ) = E( 8,7) + (6. + ZET**3*RH+T2=^T3«RI )*WET 
E(8,a) = E (8,8) + (9,*zeT^*4ARH+T3vv2>!<RI )«WET 
103 CJNTINUE 

D(5,2)=D(7,1) 

D(6,2 ) = D(8,1 ) 

D(7, 2 )=-D( 5, 1 ) 

D(8,2 )=-D(6, 1 ) 

CCM=UEN'S*B 
CCK= YGUNG*B 
DO 19 1=1,8 
u3 19 J=1,I 
D(I, J ) = D( I,J)«CCM 
19 tU, J )=E( I,J )’?CCK 
DU 105 1=1,7 
IP1=1+1 

DU 105 J=IP1,8 
t(I, J)=F(J,I) 

105 U(I, J )=0( J, I ) 

DO 106 1=1,8 
DO 106 J=l,8 

EKK I , J) = 0.0 
£LM( I ,J ) =0.0 
DU i06 K=l,3 

EKK I,J) = EK1( I, J )4A(K,I )*E(K, J) 

106 cLM( I,J)=ELM(I,J)4A(K,I)=«'C(K,J) 

DU 107 1=1,8 

Du 107 J=l,9 
cLK( I ,J)=C.0 
cLMASd, J)=0.0 
DU 107 K=l,3 

ELK( I ,J) =ELK( I , J)4EK1 (I ,K)*A(K, J) 

10 7 ELMAS( I , J )=ELMAS( I , J ) 4EL ^ ( I , K ) =»=A ( K , J ) 

CALL ASSEV(IR,IK,EL^^AS,AyASS, ICOL.NI ) 
call ASSFM(IR,IK,rLK,STIFK,ICOL,NI) 

10 1 CUfSiTINUE 

iF(UBCaND .EQ.O) RETURN 
DU 91 I=1,NBCGND 
jT4=NnDEB( I)’^=4 
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91 


JT‘fM3=JT-^-3 

JT4M2=JT4-2 

JT4Mi=JT4-l 

CALL ERC ( JTAM3, AMASS. M , ICQL ) 
IF(N6C( I ).E0. I .OR. NBC(I).E0.2) 
IF( NBC{ n .E0.2 .OR. NPC(I).E0.3» 
CALL ERC(JT4M3,STIFK,M, ICCL) 
IF(NBC( I ).EQ.l .OR. NPC(n.GO,2) 
iF(i\iBC( I ).EO.?, .OR. NPC(I).E0.3) 
CUNT INUE 
kETURK 
END 


CALL BRC(JTAM1, AMASS, MI , rCOL) 
CALL ERC (JTAM2, AMASS, MI , ICOL ) 

CALL ERC ( JT4MI, STIFK.MI , ICOL ) 
CALL EPC ( JT4M2, STIFK.MI , ICOL ) 


SUBROUTINE STRESS 

C TO evaluate generalized NGCAL LOAD VECTOR DUE TO LARGE DEFLECTION 

C AND ELASTIC-PLASTIC STRAIN 

DIMENSION ELFP(8) . PEP S ( 3 ) , CEP S ( 3 , 3 ) ,BINPW( 3) , B I MPW { 3 ) , HWB { 3 , 3 ) , 
»PN(8) ,PM(8» ,HNL(8) , 8 I N FP ( 3 ) , BI MPP ( 3 ) 

COMMON /FG/ IK, NOGA, NFL .NSFL.NI, I COL (205) , NBCONC ,NBC ( A ) , NODE B ( A) 
^,Y{51),Z(51),ANG(51),H(51) 

COMMON /HR/ YCUNG.DS ,C5,C6,ASFL( 50,3,6,5) ,GZETA(50, 3,6), SMO( 5) 
COMMON /VC/ FLVA(205),OISP(205),DELD(205),SNS(50,3,6,5), 
vBINP( 50,3 ), eiMP(50,3) ,SNP( 50,3,6,5 ) 

COMMON /BA/ BEP(50,3,3,8),AL(50) ,AXG(3) , AWG ( 3 ) , C3 ( 50 , 3 ) , CA ( 50 , 3 ) 
DO 502 IP.= 1, IK 
DU 503 J=1,NQGA 
BINP ( IR, J )=0. 

BIMP( IR, J ) = 0. 

BINPP(J)=C.O 
BIMFP( J )=C.O 
202 DO A02 1=1,3 
BEPS( I )=0. 

DO A02 K=l,8 
INDtX=(IR-l )*A + K 

40 2 BEPS< I ) = BEPS( I ) + REP( I R , J , I ,K ) *DEL C ( INDEX) 

CEPS (J, 1 ) = 0.0 
CEPS( J,2 )=0.0 
DU a 03 K=1,8 
INDtX=( IP-1 )*A + K 

CEFS( J,1)=CEPS( J,1) + 5EP( IP,J,1,K)«DISP( INDEX) 

AO 3 CcPS( J,2 )=CEPS( J, 2 ) + BEP( IR,J,2,K)*DISP( INDEX ) 

20 5 FAkE=BEPS (1 ) + CEPS ( J,2 ) E PS ( 2 )-BE PS ( 2 ) »:' *2 /2. 

FCUk=BEPS(3) 

DO 151 K=1,NFL 
BFNP=0. 

8FNPP=0, 0 

BEPX=FARE+GZETA ( I R , J , K ) * FCUR 
IF(DS.GT. 0.0) RFACTR = 1. + {C6*ABS( BEPX) )«*C5 
Du 35 L=1,NSFL 
DESNP = 0. 0 

SNS( IR, J,K,L)=SNS( IP , J,K ,L)+YCUNGvB£PX 
IF(DS.EO. 0.0) GO TO 255 
IF(SNS( IR, J,K,L )-SNO(L) ) 30,301,91 
91 SNY=SN3( D^RFACTR 

1F(SNS(IR,J,K,L )-SNY) 301 ,301,20 
20 DcSNP=SNS( IR, J,K,L)-SNY 

SNS( IR ,J ,K ,L) =SNY 
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GO TO 301 

3U iF( SNS( IR ,J,K,L) + SN3(L) >92,301,301 

92 iWY= SMO ( L ) F AC TR 

IF(SNS( IR, J,K,L )4SNY >AQ,301,301 
40 OEi)NP = SNS(IR ,J,K,L) + SAY 

SnSI IR, J,K,L)=-SNY 
GO TJ 301 

255 1F(SNS( IR,J,K,U-SNn(L) > 18,301,17 

17 Ut;SNP=SNS( IR, J,K,L)-SNG(L ) 

SNS( IR,J,K,L)=SNC(L) 

Gu TO 301 

18 1F(SNS( IR,J,K,L)4SN0(L) ) 19, 301,301 

19 DtSNP=SNS(IR,J,K,L>+SNO(L) 

SNS( IR, J,K,L)=-SN'j(L) 

30 1 8FNP-BFNP4SNS(IR, J,K,L>’^ASFL( IR,J,K,L) 

SNP( I R, J ,K,L> =SNP( IR,J,K,L)4DESNP 
BFNPP=BFNPP+SNP( I R , J , K , L) <'ASF L (I R . J , K ,L ) 

35 Continue 

biNPl IR, J) = BINP( IR,J >4BFNP 

blMP( IR, J ) = BIYP{ IR, J )4BFNP^GZETA(IR, J,K> 

blNPPt J)=eiNPP{J) +9FNPP 

8IMPP( J)=EIMPP( J)43FNPP=^GZETA(IR, J,K) 

151 Continue 

503 CONTINUE 

107 ua 101 J=1,N0GA 

BINPWI J ) = (C3( IR, J >>^'CEPS( J,2)**2/2.-BINPP( J) )^C4( IB, J) 
8IMPW( J) =-BIMPP( J)«C4nR,JI 
HWB( J,2 ) = (C3( IR, J)*(CEPS(J,1 >4CEPS( J,2)**2/2. )-BINPP 
♦CfcPOI J,2>«CA( IR, J ) 

101 CONTI^aJE 

00 102 1 = 1,8 

PNiI)=0. 

PM( I ) =0. 
hNL(I) = 0.0 
00 102 J=1,N0GA 

PN( I > =PN< I )4BEP(IR ,J , l,n*BINPW( J > 

PM{ I J=PM( I )4BEP< IR,J, 3, I )»BIMPW( J ) 

102 HNL( I >=HNL( I)4BEP(IR,J,2,I)*HWB( J,2) 

200 DO 105 1=1,3 

105 ELFP( I) = PN(n4PM( i) + hnl(T) 

502 CALL ASSEF( IR ,IK ,SLFP ,FLVA) 

RETURN 

END 


SECTION 6 


ILLUSTRATIVE EXAMPLES 


The following three examples are presented to assist the user in checking 
the adaptation of JET 3 to his computer facility. 

6.1 A Uniform Thickness Circular Complete Ring Example 

The geometry of the structure as shown in Fig. 7a, is a free circular 
ring, 0.124-in. thick, 1.195-in. wide, and 2. 937-in. mean radius. The ring is 
subjected to severe impulsive loading over a peripheral sector of 120 degrees 
of its exterior. Tciking account of the symmetry of the impulsive loading and 
geometry, only half of the ring is analyzed with the symmetry-prescribed-dis- 
placement conditions imposed at the centerline midplane. Eighteen uniform 
finite elements are used to model the half ring. 

The ring material is considered to be e^lastic, ^inear-^train-hardening , 

and £train £ate sensitive (EL-SH-SR) . Its uniaxial stress-strain curve is 

approximated by the following coordinates (£,0) = (0 in/in, 0 psi) ; (0.00408, 

42800) ; (1, 121200) . The values D = 6500 sec ^ and p = 4 are used in the 

strain rate formula. For illustrative purpose only, e is assumed to be 

-3 2 . 4 

0.04. The mass density is taken to be 0.25 x 10 (lb-sec ) /in . 

Let the JET 3A program calculate the incremental time interval. At, and 
400 cycles of structural response; printout is desired at 50 cycles, and every 
50 cycles thereafter. 

6.1.1 Input Data 

The values to be punched on the data cards are as follows : 


Card 1 

R = 0.293700 E+01 

B = 0.119500 E+01 

H = 0.124000 E+00 

DENS = 0.250000 E-03 

EXANG = 0.180000 E+03 (subtended angle of the 

analyzed ring) 


Format 

5E15.6 
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Format 


Card 2 

IK = 18 

NOGA = 3 

NFL = 4 

NSFL = 2 

mm = 400 

Ml = 50 

M2 = 50 

Card 3 

DELTAT =0.0 (to be calculated by the program) 

THETA =0.0 (first node is on the +Z axis) 

CRITS = 0.400000 E-01 

DS = 0.650000 E+04 I ^ . 

I straxn-rate constants 

P = 0.400000 E+01 J 

Card 4 

EPS(l) = 0.408000 E-02 

SlG(l) = 0.428000 E+05 

EPS (2) = 0.100000 E+01 

SIG(2) = 0.121200 E+06 

Card 5 

AXG(l) = -0.7745966692 

AXG(2) = 0.0 

AXG(3) = 0.7745966692 

Card 6 

AWG(l) = 0.5555555555 

AWG(2) = 0.8888888888 

AWG(3) = 0.5555555555 

Card 7 

TXG(l) = -0.8611363115 

TXG(2) = -0.3399810435 

TXG{3) = 0.3399810435 

TXG(4) = 0.8611363115 


715 


5E15.6 


4E15.6 


4F15.10 


4F15.10 


4F15.10 
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Card 8 


4F15.10 


TWG(l) 

= 0.3478548451 

TWG(2) 

= 0.6521451548 

TWG(3) 

= 0.6521451548 

TWG(4) 

= 0.3478548451 


Card 9 

NBCOND 

NBC(l) 
NODEB(l) 
NBC (2) 

NODEB(2) 
Card 10 

NQR 


1 

J 


(two prescribed displacement 
conditions are to be imposed) 

symmetry condition at node 1 
symmetry condition at node 19 
(no prescribed elastic restraints) 


Cards 10a and 10b are not required since NQR=0 


915 


315 


Card 11 


NV 

= 1 




IOTA 

= 1 



one local uniform initial normal 

lOTB 

= 0 



velocity distribution 

lOTC 

= 0 





415 


Card 12a 


215 


lEl 

IE2 


= 1 first element and number of elements 

_ g over which the local uniform initial 

J noimal velocity is to be prescribed 


Card 12aa 


5E15.6 


WRAD 

= -0.685300 

E+04 



WRADl 

= -0.685300 

E+04 



ANGVl 

= 0.0 




WRAD2 

= -0.342700 

E+04 1 

, smooth 

the discontinuous 

ANGV2 

= 0.137060 

E+05 1 

initial 

velocity function 


Card 13 and Card 14 are not used since IOTB=0 and IOTC=0, respectively. 
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iM O 


Card 15 

TBEGIN 

TFINAL 


= 0.0 
= 0.0 J 


no forcing function is to be prescribed 


The input data deck for this example problem should appear as 


0.293700E+01 
18 3 4 

0.0 

0.4C3000E-02 
-0. 7745S66692 
0.5555555555 
-0.8611363115 
0- 3478548451 
1 1 

1 0 

1 6 

-0.685300E+04 
0. C 


0. 1 19500E+01 
2 400 50 

0 . 0 

0.428000E+G5 

0 , 0 

0. 8888883888 
-0.3 399 81043 5 
0. 6521451543 
1 19 

0 

-0.685300E+04 

0 . 0 


C. 124000E+00 
50 

C. 400000E-01 
C.lOOOOOE+01 
0.7745966692 
C. 5555555555 
0.339981C'!i35 
C. 6521451548 


0.0 


0. 250000E-03 

0.650000E+04 
0. 121200E+06 

0.861 1363115 
0.3478548451 

-0.342700E+04 


6.1.2 Solution Output for Example 1 


The solution output for this example is as follows : 


Format 

4E15.6 

follows : 

0. 130000E+03 
0.400000E+01 


0. 137060E+05 
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A SPATIAL FINITE ELEMENT AND TEMPORAL CENTRAL DIFFERENCE PROGRAM 
USED TO CALCULATE THE NONLINEAR RESPONSES OF A UNIFORM THICKNESS CIRCULAR 
PARTIAL RING WITH THE FOLLOWING PARAMETERS 


MEAN RADIUS OF RING UN.) 

WIDTH OF RING (IN. ) - 

THICKNESS OF RING (IN. I 
DENSITY (LB-SEC^^a/IN*^^) 

SUBTENDED ANGLE < DEGREE) 

NUMBER OF ELEMENTS 
NUMBER OF SPANWISE GAUSSIAN PTS = 

NUMBER OF OEPTHWISE GAUSSIAN PTS = 

NUMBER OF MECHANICAL SUBLAYERS 
SYMMETRY DISPLACEMENT CONDITION AT NODE - 
SYMMETRY DISPLACEMENT CONDITION AT NODE = 


0*293700E 01 
O.U9500E 01 
0.124000E 00 
0. 250000E-03 
0.180000E 03 
16 

3 

4 
2 

1 
19 


there are no elastic SPRING CONSTRAINTS 


SIZE OF ASSEMBLED MASS OR STIFFNESS MATRIX= 478 


ELEMENT MASS 
0. 190567D 00 
0.258246D-03 
0,4439800-03 
0. 137657D-01 
0.6581680-0 I 
0.5280090-02 
-0.312910D-03 
-0.8 134940-02 


M ATR I X / (DEN: 
0.2532460-03 
0.1935290 00 
0.1389190-01 
-0.4148210-03 
-0.5 2 80 090-02 
0.6281030-01 
-0.8 0 05 6 50- 02 
0.3056140-G3 


»B*H) 

0 .4439800-03 
0. 1389190-Cl 
0 .137036D-C2 
-0.3019100-07 
-0.3129100-C3 
0.8005650-02 
-0.9839870-C3 
-0.1880400-C5 


0.1376570-01 
-0. 4148210-03 
-0.3019100-07 
0. 1282970-02 
0. 8134940-02 
0.3056 14D-03 
0. 1880400-05 
-0.9622300-03 


0.6581680-01 
-0.5280090-02 
-0.3129100-03 
0.3 134940-02 
0.1905670 00 
-0.2582460-03 
0.4439800t03 
-0.13765 70-01 


0.528009D-02 
0.628103D-01 
0.800565D-02 
0.305614D-03 
-0.258246 D-03 
0.19 35290 00 
-0.1389190-01 
-0.4148210-03 


-0. 312910D-03 
-0.8005650-02 
-0.9839870-03 
0. 1880400-05 
0.443980D-03 
-0. 1389190-01 
0.1370360-02 
0.3019100-07 


ELEMENT STH 
0.2330050 01 
-0. 1938160 00 
-0.1484940-01 
0. 1000890 00 
-0.2326310 01 
-0.2137380 00 
0. 1996860-01 
0.9943320-01 


NESS MATRIX / 
-0.1938160 00 
0.1316860 00 
0.3077930-01 
-0.4981210-02 
0.2137380 00 
-0.9602980-01 
0.2773320-01 
-0. 1247470-01 


(YOUNG*a*H) 
-0.1484940-01 
0.3077930-01 
0.1014730-Cl 
0.2171890-03 
0.1996860-01 
-0. 2773320-01 
0.4887730-02 
-0.1708290-C2 


0.1000890 00 
-0.4981210-02 
0.2171890-03 
0.6835720-01 
-0.9943320-01 
-0. 1247470-01 
0.1708290-02 
-0. 1708 930-01 


-0.232831D 01 
0.2137380 00 
0.1996860-01 
-0.9943320-01 
0.2330050 01 
0.1938160 00 
-0.1484940-01 
-0.1000890 00 


-0.213738D 00 
-0.96 02980-01 
-0.277332D-01 
-0.1247470-01 
0.193816D 00 
0.1316860 00 
-0.30 77930-01 
-0.4981210-02 


0.1996860-01 
0.2773320-01 
0. 4887730-02 
0.1708290-02 
-0. 1484940-01 
-0.3077930-01 
0.1014730-01 
-0.2171890-03 


EIGEN VECTOR OF HIGHEST MODE 


V 

W 

PSI 

CHI 


0.0 

-0.292268590-05 

0.0 

0.81258545D 

00 

0.971097520-04 

-0.287029120-05 

-0.118072500-03 

0.81400910D 

00 

0.19 1 26 8 5 30 - 03 

-0.274645740-05 

-0. 232557030-03 

0.818236760 

00 

0.279615120-03 

-0.2531 1940D-05 

-0.339974720-03 

0.825 13999D 

00 

0.359465060-03 

-0.2239C4680-05 

-0.437061650-03 

0.8 3450899D 

00 

0.428392240-03 

-0. 187889770-05 

-0.520867980-03 

0.8460591 00 

00 

0. 484302600-03 

-0.146169360-05 

-0.58884760D-03 

0.859439330 

00 

0.52549766D-03 

-0. 100011220-05 

-0.630935380-03 

0.87424315D 

00 

0.55072609D-03 

-0.508177180-06 

-0.669609840-03 

0.890020740 

00 

0.55922158D-03 

-0.831898490-09 

-0.679939240-03 

0.906 292730 

00 

0 . 5 5 0 72 6 09D-03 

Q,. 506513300-06 

-0.66960984D-03 

0.922 56472D 

00 

0.52549766D-03 

0.998448410-06 

-0.638935380-03 

0.938342310 

00 

0.484302600-03 

0. 1460C298D-05 

-0.588847600-03 

0.953 14612D 

00 

0.42039224D-03 

0. 18772339D-05 

-0.520867980-03 

0.966 52636D 

00 

0.35946506D-03 

0.223.73830D-05 

-0.437061650-03 

0.9780764 6D 

00 

0.279615120-03 

0.25295302D-05 

-0. 339974720-03 

0.987445470 

00 

0.191260530-03 

0.274479360-05 

-0.232557030-03 

0.99434 86 9D 

00 

0.971097520-04 

0.287662740-05 

-0.118072500-03 

0.998 576360 

00 

0.0 

0.292 10221D-05 

0.0 

O.IOOOOOOOD 

01 


HIGHEST NATURAL FREQUENCY (RAD/SEC) - 0.258833110 07 

TIME STEP SIZE USED IN PROGRAM (SEC) = 0.618159E-06 , 

IMPULSE LOADINGS HAVE BEEN SPECIFIED AS DESCRIBED BY INPUT 


0. 813494 D-02 
0.305614D-03 
0. 188040 D-05 
0.962230 D-03 
0 .1376570-01 
0.4148210-03 
0.301910D-07 
0.1282970-02 


0. 994332 D-01 
0.1247470-01 
0.1708290-02 
0.1708930-01 
0.100089D 00 
0.4981210-02 
0.2171890-03 
0. 6835720-01 


THERE IS NO TIME DEPENDENT FORCE OISTRjajTlON DURING THIS RUN 


98t 


0.0 


J= 0 TIME (SEC. I = 


TOTAL ENERGY INPUT (IN. 

-LB.) = 

0.257993E 

09 










KINETIC 

ENERGY (IN. 

-LB.) = 

0.257993E 

09 










ELASTIC 

ENERGY (IN. 

-LB.) = 

0.0 











PLASTIC 

WORK (IN. 

-LB.) = 

0.0 










I 

V 

W 

PSI 

CHI 


COPY 


COPZ 


L 

M 

STRAIN! IN) 

STRAIN(OUT) 

1 

0.0 

0. 0 

0. 0 

C.O 


0.0 


0.2937E 

01 

0.0 

0.0 

0.0 

0.0 

2 

0.0 

0.0 

0.0 

0.0 


0.5100E 

00 

0-2B92E 

01 

0-0 

0.0 

0.0 

0.0 

3 

0.0 

0. 0 

0.0 

0.0 


0.1005E 

01 

0.2760E 

01 

0.0 

0.0 

0.0 

0.0 

A 

0.0 

0.0 

0. 0 

0.0 


0. 1968E 

01 

0.2599E 

01 

0.0 

0.0 

0.0 

0.0 

5 

0.0 

0.0 

0.0 

0.0 


0.1888E 

01 

0.2250E 

01 

0.0 

0.0 

0.0 

0.0 

6 

0.0 

0. 0 

0.0 

0.0 


0.2250E 

01 

0-1888E 

01 

0.0 

0.0 

0.0 

0.0 

7 

0.0 

0.0 

0.0 

0.0 


0.2 599E 

01 

0.1969E 

01 

0.0 

0.0 

0.0 

0.0 

8 

0.0 

0. 0 

0.0 

0.0 


0.2760E 

01 

0.1005E 

01 

0.0 

0.0 

0.0 

0.0 

9 

0.0 

0.0 

0. 0 

0.0 


0-2892E 

01 

0.5100E 

00 

0.0 

0.0 

0.0 

0.0 

10 

0.0 

0.0 

0.0 

0.0 


0-2937E 

01 

0.5529E- 

-05 

0.0 

0.0 

0.0 

0.0 

11 

0.0 

0. 0 

0. 0 

0.0 


0.2892E 

01 

-0-5100E 

00 

0.0 

0.0 

0.0 

0.0 

12 

0.0 

0- 0 

0.0 

0.0 


0-2760E 

01 

-0.1005E 

01 

0-0 

0.0 

0.0 

0.0 

13 

0.0 

0.0 

0.0 

0.0 


0.2599E 

01 

-0.1968E 

01 

0.0 

0.0 

0.0 

0.0 

19 

0.0 

0. 0 

0. 0 

0.0 


0.2250E 

01 

-0.1 8 8 BE 

01 

0.0 

0.0 

0.0 

0.0 

15 

0.0 

0.0 

0.0 

0.0 


0. 1883E 

01 

-0.2250E 

01 

0.0 

0.0 

0.0 

0.0 

16 

0.0 

0. 0 

0. 0 

0-0 


0.1959E 

01 

-0-2549E 

01 

0.0 

0.0 

0.0 

0.0 

17 

0.0 

0.0 

0.0 

0.0 


0.1005E 

01. 

-0.2760E 

01 

0.0 

0.0 

0.0 

0.0 

18 

0.0 

0.0 

0.0 

0.0 


0.5100E 

00 

-0.2892E 

01 

0.0 

0.0 

0.0 

0.0 

19 

0.0 

0. 0 

0. 0 

0.0 


0.1025E- 

-09 

-0.2937E 

01 






J= 

1 

TIME (SEC.) = 

0.618159E 

-06 











TOTAL ENERGY 

INPUT (IN.-LB 

. ) = 

0. 25799 3E 

04 











KINETIC 

ENERGY (IN.-LB 

.) = 

0.256998E 

09 











ELASTIC 

ENERGY 1 IN.-LB 

. ) = 

0.S9 6295E 

01 











PLASTIC 

WORK (IN.-LB 

.) = 

0.398S70E 

01 










I 

V 

w 

PSI 


CHI 


COPY 


COPZ 


L 


M 

STRAIN! IN) 

STRAIN (OUT) 

1 

0.0 

-0. 92360-02 

0.0 


0.0 


0.0 


0.2933E 

01 

-0.3363E 

09 

-0.9903E 

00 -0.2198E-02 

-0.2179E-02 

2 

0.0 

-0.92360-02 

0.0 


0.0 


0.5093E 

00 

0.288SE 

01 

-0.3363E 

09 

-0.9903E 

00 -0.2198E-02 

-0.2179E-02 

3 

0.0 

-0.92360-02 

0.0 


0.0 


0.10036 

01 

0.2756E 

01 

-0.3363E 

09 

-0.9903E 

00 -0.2198E-02 

-0.2179E-02 

9 

0.0 

-0. 92360-02 

0.0 


0.0 


0.1966E 

01 

0.2590E 

01 

-0.3363E 

09 

-0.9903E 

00 -0.2198E-02 

-0.2179E-02 

5 

0.0 

-0. 92360-02 

0. 0 


0.0 


0.1885E 

01 

0.2297E 

01 

-0.3363E 

09 

-0.9903E 

00 -0.2198E-02 

-0.2179E-02 

6 

0.0 

-0.92360-02 

0.0 


0.0 


0.2297E 

01 

0.1885E 

01 

-0.2797E 

09 

-0.3329E 

02 -0.7631 E-03 

-0.2836E-02 

7 

0.0 

-0.21180-02 

0.89720-02 

0.0 


0.2592E 

01 

0.1967E 

01 

-0.5907E 

03 

0.3280E 

02 - 0.13 6 9E-02 

0.673 lE-03 

8 

0.0 

0.0 

0. 0 


0.0 


0.2760E 

01 

0.1005E 

01 

0.0 


0.0 

0.0 

0.0 

9 

0.0 

0.0 

0.0 


0.0 


0.2892E 

01 

0.5100E 

00 

0.0 


0.0 

0.0 

0.0 

10 

0.0 

0. 0 

0.0 


0.0 


0.2937E 

01 

0.6529E- 

-05 

0.0 


0.0 

0.0 

0.0 

11 

0.0 

0.0 

0.0 


0.0 


0.2892E 

01 

-0.5100E 

00 

0.0 


0.0 

0.0 

0.0 

12 

0.0 

0.0 

0.0 


0.0 


0-2760E 

01 

-0.1005E 

01 

0.0 


0.0 

0.0 

0-0 

13 

0.0 

0. 0 

0. 0 


0.0 


0.2599E 

01 

-0.1968E 

01 

0.0 


0.0 

0.0 

0.0 

19 

0.0 

0.0 

0.0 


0,0 


0.2250E 

01 

-0.1888E 

01 

0.0 


0,0 

0,0. 

0.0 

15 

0.0 

o.b 

0.0 


0.0 


0.1888E 

01 

-0.2250E 

01 

0.0 


0.0 

0.0 

0.0 

15 

0.0 

0. 0 

0. 0 


0.0 


0.1969E 

01 

-0.2599E 

01 

0.0 


0.0 

0.0 

0.0 

17 

0.0 

0.0 

0.0 


0.0 


0. 100 5E 

01 

-0.2760E 

01 

0.0 


0.0 

0.0 

0.0 

18 

0.0 

0.0 

0. 0 


0.0 


0.5100E 

00 

-0.2892E 

01 

0.0 


0.0 

0.0 

0.0 

19 

0.0 

0.0 

0. 0 


0.0 


0.1025E- 

-09 

-0.2937E 

01 







187 


J= 50 TIME (SEC. I = 

TOTAL ENERGY INPUT tlN.-LB.) 
KINETIC ENERGY IIN.-LB.) 
ELASTIC ENERGY I IN.-LB.) 
PLASTIC WORK IIN.-LB. I 


0.3U9079E-CA 
= 0.257AA3E OA 

= 0.126536E OA 

= 0.161289E 03 

= 0.11A778E OA 


I 

V 

W 

PSI CHI 

COPY 


COPZ 

L 


H 


STRAINI IN) 

STRAIN (OUT) 

1 

0.0 

-0. 167A0 00 

0.0 -0.53760-01 

0.0 


0.2770E 

01 -0.8297E 

OA 

-0.8113E 

01 

-0.5638E-01 

-0.563 lE-01 

2 

0. 86020-03 

-0.16750 00 

-0. A830D-Q3 -0.52800-01 

0.A818E 

00 

0.2727E 

01 -3.9 526E 

OA 

0.8A00E 

01 

-0.5A78E-01 

-0. 5A19E-01 

3 

0.282AD-02 

-0. 16770 00 

-0.31510-02 -C.A8A5D-01 

0.9A9 8E 

00 

0.2601E 

01 -0.892AE 

OA 

0.1739E 

01 

-0.A636E-01 

-0.A729E-01 

A 

0. 8AA3D-02 

-0. 16310 00 

0.61020-03 -0.A198O-01 

0.1392E 

01 

0.2394E 

01 -0.8261E 

OA 

0.2823E 

02 

-0. A055E-01 

-0.28A5E-01 

5 

0.19700-01 

-0. 17250 00 

-O.A9300-01 -C. 31080-01 

0.1792E 

01 

0.2105E 

01 -0.7150E 

OA 

-0.1215E 

03 

-0.2868 E-02 

-0.3524E-01 

6 

0.38920-01 

-0.18550 00 

0.05AOD-01 -0.38920-01 

0.2133E 

01 

0. 1739E 

01 -0.5630E 

OA 

-0.1523E 

03 

0.6I10E-02 

-0.3198E-01 

7 

0.A32A0-01 

-0. 73AAD-01 

0.24300 00 -0.36730-01 

0.25D2E 

01 

0.139AE 

01 -0.5A9AE 

OA 

0. 195AE 

03 

-0.3318E-01 

0. 9A86E-02 

8 

0.32570-01 

0.20A90-01 

0.663AD-01 -0.15810-01 

0.2790E 

01 

0.9809E 

00 -0.AA83E 

OA 

0.1703E 

03 

-0.1857 E-01 

0.5597E-02 

9 

0. 2A020-01 

0. 2A380-01 

-0.33520-01 -0.32650-02 

0.2921E 

01 

0.A906E 

00 -0.A073E 

04 

-0.3581E 

02 

-0. 1 A03E-02 

-0.3968E-02 

10 

0.19230-01 

0. 12A 10-01 

-0.22900-01 -C.323A3-02 

0.29A9E 

01 

-0.1922E- 

-01 -0.A186E 

OA 

-0.5678E 

02 

-0.8602E-03 

-0. A609E-02 

11 

0. 16050-01 

0.83500-02 

-0.73690-02 -0.27830-02 

0.2898E 

01 

-0.52 73E 

00 -0.A397E 

OA 

0.17A3E 

01 

-0.2833E-02 

-0.2774E-02 

12 

0. 13210-01 

0. 767A0-02 

-0.78290-02 -0.25A9O-O2 

0.2763E 

01 

-0.1020E 

01 -0.A539E 

OA 

0.3290E 

01 

-0.3023E-02 

-0.281 8E-02 

13 

0. 10680-01 

0. A6360-02 

-0.87060-02 -0.24330-02 

0. 25A2E 

01 

-0.1A80E 

01 -0.A895E 

OA 

-0.1706E 

02 

-0.2618E-02 

-0.3680E-02 

lA 

0. 8A75D-02 

0.35160-02 

-0.43450-02 -0.27250-02 

0.22A7E 

01 

-0.1897E 

01 -0.A968E 

04 

0.9722E 

00 

-0.3226E-02 

-0.3166E-02 

15 

0.6AOOD-O2 

0. 18290-02 

-0. A612D-02 -0.31A60-02 

0.188AE 

01 

-0.2255E 

01 -0.A958E 

04 

-0.1813E 

01 

-0.3133E-02 

-0.3246E-02 

lb 

0. A5030-02 

0.11360-02 

-0.A1470-02 -C. 31910-02 

0.1 A65E 

01 

-0.25A7E 

01 -0.511AE 

OA 

-0.12A6E 

02 

-0.2902E-02 

-0.3678E-02 

17 

0.2 7080-02 

0. A39A0-03 

-0. 9A320-03 -0.32080-02 

0.1002E 

01 

-0.2761E 

01 -0.A355E 

OA 

0.1A66E 

01 

-0.28A7E-02 

-0.2756E-02 

18 

0.1 1960-02 

0.812A0-0A 

-0. 131A0-02 -C.26790-02 

0.5089E 

00 

-0.2893E 

01 -0.3418E 

OA 

-0.5017E 

01 

-0.20A2E-02 

-0.2355E-02 

19 

0.0 

0.715AD-0A 

0.0 -0.2A460-02 

0.1025E- 

-OA 

-0.2937E 

01 







J = 

100 

riME (SEC.) = 

0 ,6 18159E 

-OA 











TOTAL ENERGY 

INPUT (IN.-LB 

.) = 0.257A43E OA 












KINETIC ENERGY ( IN.-LB 

. ) = 0. 11 1864E OA 












ELASTIC ENERGY IIN.-LB 

.) = 0.967907E 02 












PLASTIC WORK IIN.-LB 

. ) = 0. 13 5900 E OA 











I 

V 

W 

PS 1 

CHI 

COPY 


COPZ 


L 


M 


STRAINI IN) 

STRAIN(OUT) 

1 

0.0 

-0.25070 00 

0.0 

-O.A9300-01 

0.0 


0.26 86E 

01 

0.52A3E 

OA 

0.1220E 

02 

-0.5491E-01 

-0.5AA9E-01 

2 

0. 16870-01 

-0.25190 00 

-0. 21080-02 

-C. 47950-01 

0.A829E 

00 

0.2641E 

01 

0.A661E 

OA 

0.8986E 

01 

-0.5179E-01 

-0.482 lE-01 

3 

0.35960-01 

-0. 25100 00 

-0. 172 50-01 

-0.41460-01 

0.9525E 

00 

0.2512E 

01 

0. 3 706E 

04 

0.1647E 

03 

-0.A402E-01 

-0.3304E-01 

A 

0.60210-01 

-0.26090 00 

-0. 62650-01 

-C. 37920-01 

0.1390E 

01 

0.2287E 

01 

0.3197E 

04 

0.6942E 

02 

-0.3953E-01 

-0. 1770E-01 

5 

0.90610-01 

-0.30A1D 00 

-0.15280 00 

-0.37430-01 

0. 1762E 

01 

0. 1959E 

01 

0.161AE 

OA 

-0.2692E 

03 

0.2441 E-01 

-0.5837E-01 

6 

0. 13260 00 

-0. 32070 00 

0.19080 00 

-0.46060-01 

0.2089E 

01 

0.1580E 

01 

-0.2A56E 

03 

-0.2475E 

03 

0.2158E-01 

-0.406 9E-01 

7 

0.12720 00 

-O.IOAOO 00 

0.AA760 00 

-0.10640 00 

0.2517E 

01 

0.1306E 

01 

-0.1589E 

OA 

0.2603E 

03 

-0.5038E-01 

0.28A0E-01 

8 

0.89610-01 

0. 361 10-01 

0.12080 00 

-0.20530-01 

0.2871E 

01 

0.9A98E 

00 

-0.1 73AE 

OA 

0.2595E 

03 

-0.2816E-01 

0.1790E-01 

9 

0.68330-01 

0.95830-01 

-0. 69430-01 

-0.36670-02 

0.2999E 

01 

0.A59AE 

00 

-0.1569E 

OA 

0.1663E 

02 

-O.IA2AE-02 

-0. 7239E-03 

10 

0.51960-01 

0.67670-01 

-0.72350-01 

-C. 39410-02 

0.3005E 

01 

-0.5195E- 

-01 

-0.1363E 

OA 

-0.1157E 

03 

0.2790E-02 

-0.4627E-02 

11 

0. 40870-01 

0. 46390-01 

-0. A16A0-01 

-0.14800-02 

0.2931E 

01 

-0.5583E 

00 

-0.6998E 

03 

-0.9910E 

02 

0.2635E-02 

-0.3535E-02 

12 

0. 3 3180-01 

0. 38960-01 

-0.16100-01 

-C. 14630-03 

0.2785E 

01 

-0.1 0A9E 

01 

0.3076E 

03 

-0.2097E 

02 

0.8506E-03 

-0.45A7E-03 

13 

0. 26560-01 

0.38010-01 

-0.10700-01 

0.44280-03 

0.2563E 

01 

-0.1511E 

01 

0.1310E 

OA 

0.2803E 

02 

-0.2 975 E-OA 

0.1715E-02 

14 

0.20490-01 

0.34780-01 

-0. 17920-0 1 

0.73900-03 

0.2263E 

01 

-0.1926E 

01 

0.1820E 

04 

-0.2881E 

02 

0.2068E-02 

0.27A OE-03 

15 

0.15430-01 

0.29990-01 

-0.1 0490-01 

0.14890-02 

0.1895E 

01 

-0.2283E 

01 

0.2590E 

OA 

-0.1649E 

02 

0.2180E-02 

0.1153E-02 

16 

0.11210-01 

0.28170-01 

-0. 62440-02 

0. 17410-02 

0.1473E 

01 

-0.2574E 

01 

0. 3145E 

04 

-0.5402E 

00 

0.20A0E-02 

0.2006E-02 

17 

0.73560-02 

6.27240-01 

-0. 60900-02 

0.18030-02 

0.1007E 

01 

-0.2788E 

01 

0.35A1E 

OA 

-0.1055E 

02 

0.2669E-02 

0.1594E-02 

18 

0.380A0-02 

0.25170-01 

-0.16130-02 

0.1A5A0-02 

0.5106E 

00 

-0.2918E 

01 

0.3101E 

04 

0.A102E 

01 

0. 1432 E-02 

0.10A5E-02 

19 

0.0 

0 . 2 53 1 0-01 

0. 0 

0.59750-03 

0.103AE- 

-OA 

-0.2962E 

01 








J= 150 TIME (SEC.) = 0.927238E-04 

TOTAL ENERGY INPUT (IN. -LB.) = 0.257443E 04 

KINETIC ENERGY (IN.-LB.) = 0.105222E 04 

ELASTIC ENERGY (IN.-LB.) = 0.756474E 02 

PLASTIC WORK (IN.-LB.) = 0.144656E 04 


I 

V 

W 

PSI 

CHI 

COPY 


C0P2 


L 


M 


STRAIN! IN) 

STRAIN (OUT) 

1 

0.0 

-0.33770 00 

0.0 

-0.52700-01 

0.0 


0.2599E 

01 

-0.2 580E 

03 

0.5773E 

01 

-0.5825E-01 

-0.5823E-01 

2 

0.29870-01 

-0.33390 00 

-0.45300-03 

-0.51520-01 

0.4814E 

00 

0.2558E 

01 

-0.1041E 

04 

0.2067E 

03 

-0.6363E-01 

-0.440 3 E-01 

3 

0.614 70-01 

-0.34430 00 

-0. 81860-01 

-C.47670-01 

0.9445E 

00 

0.2415E 

01 

-0.9055E 

03 

0.6356E 

02 

-0.4512E-01 

-0.3476E-01 

4 

0.10120 00 

-0.38710 00 

-0.12480 00 

-0.46060-01 

0.1363E 

01 

0.2158E 

01 

-0. 1097E 

04 

-0.2310E 

03 

-0.2995E-01 

-0.3185E-01 

5 

0.152 50 00 

-0.42970 00 

-0.11690 00 

-0.32950-01 

0.1728E 

01 

0.1823E 

01 

-0.1337E 

04 

-0.2093E 

03 

0.2963E-01 

-0.6154E-01 

6 

0.21380 00 

-0.39860 00 

0.26230 00 

-0.63620-01 

0.2082E 

01 

0.146BE 

01 

-0.1044E 

04 

-0.6852E 

02 

0.2116E-01 

-0.3765E-01 

7 

0.20620 00 

-0.13720 00 

0.50470 00 

-0.13310 00 

0.2528E 

01 

0.122 IE 

01 

-0.6801E 

03 

0.2598E 

02 

-0.4372E-01 

0.2286E-01 

8 

0.15500 00 

0. 10790 00 

0.22780 00 

-0.3 7360-01 

0.2914E 

01 

0.895 7E 

00 

-0 .4524E 

03 

0.1825E 

03 

-0.3273E-01 

0.3642E-01 

9 

0.12600 00 

0.16340 00 

-0 . 5 72 5 0-01 

-C. 18740-02 

0.3075E 

01 

0.4143E 

00 

-0.6846E 

03 

0.2091E 

03 

-0.7168E-02 

0.6565E-02 

10 

C. 97020-01 

0.13500 00 

-0. 11410 00 

-0.70570-02 

0.3072E 

01 

-0.9701E- 

-01 

-0.3118E 

03 

-0.4041E 

02 

0.1837E-02 

-0.1923E-02 

11 

0.74050-01 

0.92470-01 

-0. 98640-01 

-C.37180-02 

0.2971E 

01 

-0.5990E 

00 

0.3820E 

03 

-0.1547E 

03 

0.6460E-02 

-0. 5188E-02 

12 

0.5944D-01 

0.66660-01 

-0.50410-01 

-0.69560-03 

0.2802E 

01 

-0.1083E 

01 

0.4263E 

03 

-0.9728E 

02 

0.3488E-02 

-0.2836E-02 

13 

0.48610-01 

0.575 90-01 

-0.24230-01 

0.89760-04 

0.2569E 

01 

-0.1539E 

01 

0.5963E 

03 

-0.3877E 

02 

0. 1590E-02 

-0.823 lE-03 

14 

0.38850-01 

0. 56330-01 

-0. 142 50-01 

G.47970-03 

0.2268E 

01 

-0.1954E 

01 

0.4639E 

03 

0.2496E 

02 

-0.4785E-03 

0.1076E-02 

15 

0.29340-01 

0.53360-01 

-0.20700-01 

0.46300-03 

0.1900E 

01 

-0.2310E 

01 

0.1085E 

04 

-0.8364E 

01 

0.9583E-03 

0.4376E-03 

16 

0.20840-01 

0.47170-01 

-0. 18550-01 

0.85960-03 

0.1474E 

01 

-0.2595E 

01 

0.1674E 

04 

-0.3116E 

02 

0.2047E-02 

0. 106 5E-03 

17 

0.13530-01 

0.42710-01 

-0.10520-01 

C. 10210-02 

0.1006E 

01 

-0.2805E 

01 

0.2185E 

04 

-0.2780E 

02 

0.2333E-02 

0.1845E-03 

18 

0. 68300-02 

0.41120-01 

-0. 16040-02 

0.67580-03 

0.5104E 

00 

-0.2934E 

01 

0.2371E 

04 

0.4156E 

01 

0.9601E-03 

0.5768E-03 

19 

0.0 

0.41010-01 

0.0 

C. 27180-03 

0.1039E- 

-04 

-0.2978E 

01 








H 

s 


J= 200 TIME (SEC.) = 0.123632E-C3 

TOTAL ENERGY INPUT (IN.-LB.) = 0.257443E 04 

KINETIC ENERGY (IN.-LB.) = 0.997464E 03 

ELASTIC ENERGY (IN.-LB. I = 0. 104127E 03 

PLASTIC WORK (IN.-LB.) = 0.147284E 04 


I 

V 

W 


PSI CHI 

COPY 


COPZ 

L 


M 


STRAIN) IN) 

STRAIN(OUT) 

1 

0.0 

-0.39430 

00 

0.0 -0.51770-01 

0.0 


0.2543E 

01 0.1788E 

03 

0.2396E 

03 

-0.6924E-01 

-0.462 2E-01 

2 

0.40940-01 

-0.42180 

00 

-0.95670-01 -0.55690-01 

0.4771E 

00 

0.2470E 

01 0.2362E 

03 

-0.2054E 

02 

-0.5581E-01 

-0.5013E-01 

3 

0. 89150-01 

-0.46690 

00 

-0.11950 00 -0.50640-01 

0.9286E 

00 

0.2291E 

01 0.6417E 

03 

-0.1459E 

03 

-0.3754E-01 

-0. 40426-01 

4 

0. 15060 00 

-0 . 504 90 

00 

-0.10750 00 -0.43250-01 

0.1346E 

01 

0.2031E 

01 0.3768E 

03 

-0.1677E 

03 

-0.3000E-01 

-0.3007E-01 

5 

0. 2 22 1 0 00 

-0.52920 

00 

-0.10720 00 -0.32480-01 

0.1718E 

01 

0.1702E 

01 -0.1497E 

03 

-0.2423E 

03 

0.3304E-01 

-0.6421E-01 

6 

0.298 70 00 

-0.47540 

00 

0.29740 00 -0.71140-01 

0.2078E 

01 

0.1353E 

01 -0.3465E 

03 

-0.2251E 

03 

0.2657E-01 

-0.4226E-01 

7 

0.2 8640 00 

-0. 16870 

00 

0.5 8100 00 -0.17530 00 

0.2541E 

01 

0.1136E 

01 -0.4978E 

03 

0.1691E 

03 

-0.4806E-01 

0.2743E-01 

8 

0.22160 00 

0.12110 

00 

0.26690 00 -0.46440-01 

0.2949E 

01 

0.8377E 

00 -0.6520E 

03 

0.2110E 

03 

-0.3445E-01 

0.3748E-01 

9 

0.18660 00 

0.20210 

00 

-0.29510-01 -0.12290-02 

0.3124E 

01 

0.3613E 

00 -0.9139E 

03 

0. 1755E 

03 

-0.1117E-01 

0.741 2E-02 

10 

0.14910 00 

0.19480 

00 

-0. 10640 00 -C.64660-02 

0.3132E 

01 

-0.1491E 

00 -0.1015E 

04 

0.1520E 

03 

-0.5215E-02 

0.38B4E-02 

11 

0.11390 00 

0.15140 

00 

-0.14420 00 -0.10190-01 

0. 3022E 

01 

-0.6485E 

00 -0. 1244E 

04 

-0.4258E 

02 

0.2435 E-02 

-0.3902E-02 

12 

0.87130-01 

0. 98780- 

-01 

-0.11800 00 -0.76670-02 

0.2823E 

01 

-0.1120E 

01 -0.1564E 

04 

-0.2193E 

03 

0.6778E-02 

-0.9644E-02 

13 

0.70390-01 

0. 70080- 

-01 

-0.50050-01 -0.21340-02 

0.2569E 

01 

-0.1564E 

01 -0.1615E 

04 

-0.1290E 

03 

0.2978E-02 

-0.5056E-02 


0. 57920-01 

0.66020-01 

-0.16770-01 -0.15520-02 

0.2263E 

01 

-0.1975E 

01 -0.2507E 

04 

0.6686E 

01 

-0.1821 E-02 

-0.1405E-02 

15 

0.45380-01 

0.66780- 

-01 

-0. 18490- 01 -0.21940 - 02 

0.1896E 

01 

-0.2330E 

01 -0.3195E 

04 

0.2316E 

02 

-0.2776E-02 

-0.1334E-02 

16 

0 . 3 28 1 0- 01 

0.62570- 

-01 

-0.24440-01 -0.28000-02 

0-1471E 

01 

-0.2614E 

01 -0.3761E 

04 

-0.1350E 

02 

-0.1999 E-02 

-0.2840E-02 

17 

0.21130-01 

0. 55010- 

-01 

-0.20960-01 -0.28440-02 

0.1003E 

01 

-0.2 819E 

01 -0.4466E 

04 

-0.3143E 

02 

-0.1784E-02 

-0.431 7E-02 

18 

0.10420-01, 

0.495 80-01 

-0.10470-01 -C. 36100-02 

0.5084E 

00 

-0.2943E 

01 -0.4835E 

04 

-0.3029E 

02 

-0.2603E-02 

-0.5131E-02 

19 

0.0 

0.471VU- 

-01 

0.0 -0.45320-02 

0. 1041E- 

-04 

-6.2984E 

01 







J= 250 TIME (SEC. I = 

TOTAL ENERGY INPUT (IN. -LB. I 
KINETIC ENERGY (IN.-LB.) 
ELASTIC ENERGY (IN.-LB.) 
PLASTIC WORK ( IN.-LB. J 


0 .154540E-03 
= 0.257443E 04 

= 0.94 2427E 03 

= 0.114932E 03 

= 0.151707E 04 


1 

V 


w 


PS 1 


CHI 

COPY 


COPZ 


L 


M 

STRAIN! INI 

STRAIN (OUT) 

1 

0. 0 


-0. 47740 

00 

0. 0 


-0.49690-01 

0.0 


0.2460E 

01 

-0.7 593E 

03 

0.2336E 

03 -0.7301E-01 

-0.4399E-01 

2 

0. 5506D- 

•01 

-0.51370 

00 

-0. 12060 

00 

-C. 59030-01 

0.4750E 

00 

0.2377E 

01 

-O.IOOIE 

04 

0.2882E 

02 -0.5814E-01 

-0.4939E-01 

3 

0. 1179D 

00 

-0.57070 

00 

-0. 15720 

00 

-0.56350-01 

0.9202E 

00 

0.2183E 

01 

-0.6196E 

03 

-0. 1881E 

03 -0.3609E-01 

-0.4470E-01 

4 

0.19580 

00 

-0.61890 

00 

-0. 12170 

00 

-C.453 90-01 

0.1329E 

01 

0.1910E 

01 

-0.2724E 

03 

-0.2604E 

03 -0.2511E-01 

-0.3619E-01 

5 

0.28660 

00 

-0.62700 

00 

-0. 75680- 

■01 

-0.30040-01 

0. 1704E 

01 

0.1585E 

01 

-0.2 564E 

03 

-0.2578E 

03 0.3469E-01 

-0.6610E-01 

6 

0. 37640 

00 

-0. 53920 

00 

0. 343 90 

00 

-0.86070-01 

0.2079E 

01 

0.1253E 

01 

0.2820E 

02 

-0. 1961E 

03 0.2643E-01 

-0.4229E-01 

7 

0.35990 

00 

-0. 19570 

00 

0.6 26 80 

00 

-Q.2018D 00 

0.2554E 

01 

0.1059E 

01 

0.5969E 

03 

0.9510E 

02 -0.4505E-01 

0.2584E-01 

8 

0.28310 

00 

0.13370 

00 

0.33140 

00 

-0.65140-01 

0.2982E 

01 

0.7843E 

00 

0. 1 503E 

04 

0.2260E 

03 -0.3795 E-01 

0.428 lE-014 

9 

0.23910 

00 

0.25260 

00 

-0. 13190- 

■02 

0.97840-03 

0.3183E 

01 

0.3184E 

00 

0.2075E 

04 

0.2511E 

03 -0.1347E-01 

0.1541E-01 

10 

0.19280 

00 

0.25560 

00 

-0.12080 

00 

-C.60010-02 

0.3193E 

01 

-0.1923E 

00 

0.2971E 

04 

0.1394E 

03 -0.2324E-02 

0.6203E-02 

11 

0. 14730 

00 

0. 21130 

00 

-0. 15620 

00 

-0.94990-02 

0.3075E 

01 

-0.6918E 

00 

0.34736 

04 

0.1314E 

02 0.3735E-02 

0.8672E-03 

12 

0.1 1050 

00 

0. 15560 

00 

-0. 1 4430 

00 

-0.86460-02 

0.2868E 

01 

-0.1162E 

01 

0.3611E 

04 

-0.8234E 

02 0.6964E-02 

-0.3345E-02 

13 

0.846 70- 

■01 

0. 10810 

00 

-0.10170 

00 

-0.27010-02 

0.2595E 

01 

-0.1596E 

01 

0.3904E 

04 

-0. 1289E 

03 0.1 064 E-01 

-0.3859E-02 

14 

0. 68490- 

■01 

0. 84860- 

-01 

-0.41610- 

■01 

0.21450-02 

0.2271E 

01 

-0.1995E 

01 

0.3671E 

04 

-0.1305E 

03 0.6 964E-02 

-0.194 OE-02 

15 

0.55010- 

■01 

0.85710- 

-01 

-0.47370- 

■02 

0. 19980-02 

0.1901E 

01 

-0.2351E 

01 

0.3342E 

04 

0.2710E 

02 0.1307E-02 

0.2994E-02 

16 

0.40500- 

■01 

0.91580- 

-01 

-0. 11700- 

-01 

0.17330-02 

0.1479E 

01 

-0.2643E 

01 

0.2825E 

04 

0. 6905E 

02 -0.3321E-03 

0.3967E-02 

17 

0.25610- 

■01 

0.85960- 

-01 

-0. 2 94 90- 

-01 

C. 11080-02 

O.lOlOE 

01 

-0.2849E 

01 

0.2594E 

04 

-0.2282E 

02 0.2490E-02 

0.492 8E-03 

18 

0.12110- 

-01 

0.75120- 

-01 

-0.21210-01 

0.73270-03 

0.5111E 

00 

-0.296 8£ 

01 

0.2643E 

04 

-0.7197E 

02 0.35D5E-02 

-0.1618E-02 

19 

0.0 


0. 69840- 

-01 

0.0 


0.69120-03 

0.1049E-04 

-0.3007E 

01 







♦ strain exceeds the critical value 


J = 

300 TIME (SEC. 

.) = 

0 .185448E 

;-03 










TOTAL ENERGY 

INPUT (IN. 

,-LB 

.) = 0.25-7443E 04 











KINETIC ENERGY ( IN. 

.-LB 

.) = 0.916673E 03 











ELASTIC ENERGY (IN. 

,-LB 

. ) = 0.980654E 02 











PLASTIC WORK (IN. 

,-L8 

. ) = 0. 155S69E 04 










I 

V 

W 


PS I 

CHI 

COPY 


COPZ 

L 


H 


STRAIN! IN) 

STRAIN (GUT) 

1 

0.0 

-0. 57800 

00 

0. 0 

-0.4961U-01 

0.0 


0.2359E 

01 -0.3347E 

03 

0.1883E 

03 

-0.7184E-01 

-0.4326E-01 

2 

0.72930-01 

-0.61140 

00 

-0. 1 1870 00 

-0.58290-01 

0.4757E 

00 

0.22 78E 

01 -0.4 709E 

03 

0.8667E 

02 

-0.5960 E-01 

-0.4724E-01 

3 

0. 152 50 00 

-0. 66580 

00 

-0.17020 00 

-0.58110-01 

0.9200E 

00 

0.2082E 

01 -0.2779E 

03 

-0. 1041E 

03 

-0.3833E-01 

-0.4193E-01 

4 

0.24540 00 

-0.72000 

00 

-0.15550 00 

-C.49510-01 

0. 1 32 1 E 

01 

0.1797E 

01 -0.2569E 

03 

-0.2485E 

03 

-0.1242E-01 

-0.4196E-01 

5 

0.35490 00 

-0.71990 

00 

-0.32970-01 

-0.23050-01 

0.1697E 

01 

0.1470E 

01 -0.1046E 

02 

-0.2125E 

03 

0.3651E-01 

-0.6560E-01 

6 

0.45560 00 

-0.59050 

00 

0.39240 00 

-C.10550 00 

0.2090E 

01 

0.1159E 

01 -0.7489E 

02 

-0.9272E 

02 

0.2314E-01 

-0.3914E-01 

7 

0.43600 00 

-0. 21660 

00 

0.64850 00 

-0.21580 00 

0.2574E 

01 

0.9826E 

00 -0.2852E 

03 

0.8910E 

02 

-0.4543E-01 

0.2508E-01 

8 

0.35480 00 

0. 13640 

00 

0.3 54 70 00 

-0.7 3930-01 

0.3009E 

01 

0.7178E 

00 -0.4652E 

03 

0.2023E 

03 

-0.3861E-01 

0.4146E-01 

9 

0.30570 00 

0. 28030 

00 

0.24720-01 

0. 13480-03 

0. 3221E 

01 

0.2576E 

00 -0.5590E 

03 

0.2209E 

03 

-0.1873 E-01 

0.168 5E-01 

10 

0.25220 00 

0.30090 

00 

-0.12250 00 

-0.81370-02 

0.3238E 

01 

-0.2522E 

00 -0. 1117E 

04 

0.1880E 

03 

-0.6925E-02 

0.5289E-02 

11 

0. 19620 00 

0. 26110 

00 

-0.17310 00 

-0.15260-01 

0.3115E 

01 

-0.7485E 

00 -0.1744E 

04 

0.6590E 

02 

-0. 1264E-02 

-0.8461E-03 

12 

0.14720 00 

0.20050 

00 

-0.17490 00 

-0.16900-01 

0.289 8E 

01 

-0.1211E 

01 -0.2077E 

04 

-0.7440E 

02 

0.3057E-02 

-0.6757E-02 

13 

0.11030 00 

0. 14210 

□ 0 

-0.13430 00 

-0.10160-01 

0.261 IE 

01 

-0.1635E 

01 -0.2388E 

04 

-0. 1175E 

03 

0.6306E-02 

-0.7696E-02 

14 

0.85790-01 

0.10550 

00 

-0. 76300-01 

-0.38680-02 

0.2276E 

01 

-0.2021E 

01 -0.2819E 

04 

-0.1205E 

03 

0.2800E-02 

-0.608 8E-02 

15 

0.67320-01 

0.90170- 

-01 

-0.39510-01 

-0.25210-02 

0.1894E 

01 

-0.2362E 

01 -0.3301E 

04 

-0. 1144E 

03 

0.1437E-02 

-0.5684E-02 

18 

0.50730-01 

0. 87760^ 

-01 

-0.10050-01 

-0.22370-02 

0.1468E 

01 

-0.2645E 

01 -0.3455E 

04 

-0.83606 

01 

-0. 1962E-02 

-0.2483E-02 

17 

0.33860-01 

0.91980- 

■01 

-0.78890-02 

-0.23330-02 

0. 1004E 

01 

-0.2858E 

01 -0.3439E_ 

.04 

0.4693E. 

.02 

-0.3562 E-02. 

-O.L217Et02 

18 

0.1662 0-01 

0.89120-01 

-0.1758D-0i 

-6.31380-02 

0.5091E 

00 

-0.2983E 

01 -0.3439E 

04 

-0.5787E 

02 

-0.8469E-03 

-0.5091E-02 

19 

0.0 

0. 838 10- 

-01 

0. 0 

-C.34980-02 

0.1054E- 

-04 

-0.302 IE 

01 







190 


J= 350 time (SEC. I = 0.216356E-03 

TOTAL ENERGY INPUT (IN.-LB.) = 0.257A43E 04 

KINETIC ENERGY IIN.-LB.) = 0.399933E 03 

ELASTIC ENERGY (IN.-LB.) = 0.103451E 03 

PLASTIC WORK (IN.-LB.) = 0.157104E 04 


I 

V 


w 


PSI 


CHI 

COPY 


C0P2 


L 


M 


STRAIN! IN) 

STRAIN (OUT) 

1 

0.0 


-0.6829D 

00 

0.0 


-0.49460-01 

0.0 


0.22546 

01 

-0.5116E 

03 

0.2076E 

03 

-0.7255 E-01 

-0.4277E-01 

2 

C. 9 1060- 

■01 

-0. 7169D 

00 

-0. 12370 

00 

-0.58880-01 

0.4752E 

00 

0.21716 

01 

-0.82766 

03 

0.3051E 

02 

-0.5808E-01 

-0.49226-01 

3 

0. 188 70 

00 

-0.7656D 

00 

-0. 16080 

00 

-0.56720-01 

0.9200E 

00 

0.19766 

01 

-0.5110E 

03 

-0.9866E 

02 

-0.3865E-01 

-0.419 16-01 

4 

0.2 9880 

00 

-0.80610 

00 

-0.14740 

00 

-0.48790-01 

0.13246 

01 

0.1696E 

01 

—0. 44756 

03 

-0.18566 

03 

-0.1396E-01 

-0.41766-01 

5 

0.42200 

00 

-0. 7946D 

00 

-0.32110- 

-01 

-C. 24150-01 

0. 1700E 

01 

0.13706 

01 

-0.56916 

03 

-0.2694E 

03 

0.38786-01 

-0.7041E-01 

6 

0.53260 

00 

-0.646 3 0 

00 

0.42280 

00 

-0.11660 00 

0.2097E 

01 

0.1064E 

01 

-0.66476 

03 

-0. 15316 

03 

0.2464 E-01 

-0.41406-01 

7 

0. 50680 

00 

-0.23780 

00 

0.694 1 0 

00 

-0.24720 00 

0.2591E 

01 

0-91076 

00 

-0.2375E 

03 

0.1766E 

03 

-0.4812E-01 

0.2784E-01 

8 

0.41500 

00 

0. 1446D 

00 

0.37760 

00 

-G.8217D-01 

0.3038E 

01 

0.6633E 

00 

-0.12526 

03 

0.2168E 

03 

-0.38846-01 

0.421 4E-01 

9 

0.3 61 90 

00 

0.308 ID 

03 

0.43990- 

-01 

-0.45130-03 

0.3259E 

01 

0.2071E 

00 

-0.2107E 

03 

0.21056 

03 

-0.1888E-01 

0.1692E-01 

10 

0.30220 

00 

0.3494D 

00 

-0. 10410 

00 

-C. 6 06 90 - 02 

0.3286E 

01 

-0.3022E 

00 

-0-3113E 

03 

0.2198E 

03 

-0.99666-02 

0.89706-02 

11 

0.23700 

00 

0.3197D 

00 

-0.18250 

00 

-0.16300-01 

0. 3166E 

01 

-0.7989E 

00 

-0.8361E 

01 

0.1004E 

03 

-0.12216-02 

0.1344E-02 

12 

0. 17700 

00 

0.2 5760 

00 

-0.193 2 0 

00 

-0.18720-01 

0.2941E 

01 

-0.12596 

01 

0.5265E 

03 

-0.2530E 

02 

0.3204 E-02 

-0.35546-02 

13 

0.12940 

00 

0. 19070 

00 

-0. 16530 

00 

-0.13100-01 

0-2644F 

01 

-0.1676E 

01 

0.1192E 

04 

-0.1171E 

03 

0.8595E-02 

-0.53786-02 

14 

0.96740- 

-01 

0.13980 

00 

-0.10740 

00 

-0. 44190-02 

0.229 5E 

01 

-0.20526 

01 

0.18596 

04 

-0. 14676 

03 

0.66256-02 

-0.38956-02 

15 

0.73890- 

■01 

0. 11210 

00 

-0. 63840- 

-01 

-0.99940-03 

0.19036 

01 

-0.2383E 

01 

0.22986 

04 

-0.1205E 

03 

0.54016-02 

-0. 26606-02 

16 

0.5 5740- 

-01 

0.99440- 

-01 

-0.30460-01 

0.11040-02 

0.1470E 

01 

-0.26576 

01 

0.2617E 

04 

-0.13676 

03 

0.59386-02 

-0.25716-02 

17 

0.39250- 

-01 

0. 10100 

00 

0.47730- 

-02 

0.16770-02 

0.1002E 

01 

-0.286SE 

01 

0.26486 

04 

-0.7715E 

02 

0.42166-02 

-0.11646-02 

18 

0.21070- 

■01 

0. 11610 

00 

0^2 7050- 

■01 

0.57520-03 

0. 50946 

00 

-0.3010E 

01 

0.23136 

04 

0.11536 

03 

-0.25376-02 

0. 40006-02 

19 

0.0 


0. 12580 

00 

0.0 


0.47620-03 

0. 10696- 

-04 

-0.306 36 

01 








J= 400 TIME (SEC.) = 0.247263E-03 

TOTAL ENERGY INPUT (IN.-LB.) = 0.257443E 04 

KINETIC ENERGY (IN.-LB.) = 0.887424E 03 

ELASTIC ENERGY (IN.-LB.) = 0.984258E 02 

PLASTIC WORK (IN.-LB.) = 0. 1588583 04 


I 

V 


w 


PS 1 

CHI 

COPY 


CDPZ 

L 


M 


STRAIN! IN) 

STRAIN (OUT ) 

1 

0.0 


-0. 79560 

00 

0, 0 

-G. 49240-01 

0.0 


0.2141E 

01 0.44946 

03 

0. 1300E 

03 

-0.69526-01 

-0.4457E-01 

2 

0.11110 

00 

-0.82130 

00 

-0. 10370 

00 -C. 56230-01 

0.4768E 

00 

0.20 64E 

01 0.6061E 

03 

0.8102E 

02 

-0.58736-01 

-0.46736-01 

3 

0.22720 

00 

-0. 85720 

00 

-0. 15370 

00 -0.55130-01 

0.9248E 

00 

0.1877E 

01 0.46926 

03 

-0.9054E 

02 

-0.38276-01 

-0.4103E-01 

4 

0 . 353 0 0 

00 

-0. 88770 

00 

-0. 14240 

00 -C.4762D-01 

0.13306 

01 

0.1598E 

01 -0.72496 

02 

-0.2304E 

03 

-0.1232E-01 

-0.42916-01 

5 

0. 48980 

00 

-0.85970 

00 

-0.15590- 

■01 -0.22830-01 

0.17116 

01 

0.12766 

01 -0. 1663E 

03 

-0.21796 

03 

0.39786-01 

-0.70036-01 

6 

0. 60860 

00 

-0. 68790 

00 

0.44200 

00 -0.12540 00 

0.2114E 

01 

0.9794E 

00 -0.4279E 

03 

-0.14786 

03 

0.2463E-01 

-0.4108E-01 

7 

0.58330 

00 

-0.25810 

00 

0.71200 

00 -0.25950 00 

0.2612E 

01 

0.3343E 

00 -0.6 191E 

03 

0.1250E 

03 

-0.4676E-01 

0.2598E-01 

8 

0.48590 

00 

0.15030 

00 

0.4 08 5 0 

00 -0.94530-01 

0.30676 

01 

0.59946 

00 -0.6640E 

03 

0.23556 

03 

-0.41316-01 

0.443 lE-01 

9 

0.42590 

00 

0.33800 

00 

0. 55810- 

-01 -C.1820D-02 

0.32996 

01 

0.1493E 

00 -0.73546 

03 

0.2326E 

03 

-0.20876-01 

0. 1915E-01 

10 

0.35960 

00 

0.39000 

00 

-0. 10970 

00 -C. 72270-02 

0.332 76 

01 

-0.35966 

00 -0.90316 

03 

0.1862E 

03 

-0.99376-02 

0.89866-02 

11 

0. 28630 

00 

0. 36690 

00 

-0.18800 

00 -0.17710-01 

0.32046 

01 

-0.8556E 

00 -O.llOlE 

04 

0.11006 

03 

-0.25076-02 

0.158 26-02 

12 

0.21660 

00 

0.30890 

00 

-0.20500 

00 -0.21880-01 

0.29766 

01 

-0.1314E 

01 -0.1044E 

04 

0.2851E 

02 

0.51856-03 

-0.28896-02 

13 

0. 15790 

00 

0.23820 

00 

-0.19100 

00 -0.18900-01 

0.26716 

01 

-0.1724E 

01 -0.7952E 

03 

-0.5337E 

02 

0.53346-02 

-0.46746-02 

14 

0.11470 

00 

0.17410 

00 

-0. 149 50 

00 -G.1097D-01 

0.23106 

01 

-0.208 86 

01 -0.26596 

03 

-0.1593E 

03 

0.59536-02 

-0.57876-02 

15 

0.84630- 

-01 

0.12670 

00 

-0. 10090 

00 -0.49720-02 

0.19046 

01 

-0.2401E 

01 0.38626 

02 

-0.22556 

03 

0.90666-02 

-0.84976-02 

16 

0.63760- 

-01 

0. 10630 

00 

-0.28180-01 0.32230-03 

0.1466E 

01 

-0.26676 

01 0.2830E 

03 

-0.1438E 

03 

0.5649E-02 

-0.47316-02 

17 

0.44990- 

-01 

0.11440 

00 

0. 14790- 

■01 0.24930-03 

O.IOOIE 

01 

-0.28836 

01 0.51146 

03 

0.1748E 

01 

0.38586-03 

-0.82376-04 

18 

0.23610- 

-01 

0.12950 

00 

0.16740- 

-01 -0.75190-03 

0.5093E 

00 

-0.30246 

01 0.5211E 

03 

0.71956 

02 

-0.2405 6-02 

0.16446-02 

19 

0. 0 


0. 13590 

00 

0.0 

-0.66650-03 

0.10726- 

-04 

-0.30736 

01 







LARGEST COMPUTED STRAIN = 0.443120E-01 OCCURS AT THE OUTER SURFACE MIDSPAN OF ELEMENT = 8 AT TIME (SEC.) = 0.247263E-03 


6.2 A Uniform Thickness Circular Complete Ring Example^ 

In this example, a free circular ring 7.3375-in. midsurface radius, 
0.125-in. thick, 1.0-in. long is acted upon by a timewise triangularly-shaped 
normal direction forcing function lasting 400 ysec with a peak value of 
2500 pounds per inch at t = 200 ysec. The forces are assumed to be distributed 
over three equally separated peripheral sectors (as shown in Fig. 7b) ; each 
amplitude is defined by the shape of a half-sine wave over a 30® segment of 
the ring. The normalized values of the three sine-shaped forcing functions 
with respect to the nominal amplitude are 0.8, 0.9, and 1.0, respectively. 

The stress-strain curve is approximated by the following stress-strain 

coordinates (e,a) = (0 in/in, 0 psi) ; (0.00425, 42000); (0.03, 50000); and 

(0.14, 65000) . Strain-rate effects are considered to be negligible, and the 

-3 2 4 

mass density is tcOcen to be 0.25 x 10 (lb-sec )/in . 

The nximber of finite elements to be used to describe the complete ring 

is 36. 

Let the JET 3B program be employed to calculate the transient response 
of the ring. For the time increment. At = 3 ysec is chosen, which has been 
shown (by numerical experimentation) to be suitable to provide an acceptably 
accurate solution. Three hundred computational cycles (.0009 sec) of struc- 
tural response are to be computed; printout is desired at 10 cycles and every 
10 cycles thereafter. 

6.2.1 Input Data 

The values to be punched on the data cards are as follows: 


Card 1 

R = 0.733750 E+01 

B = 0.100000 E+01 

H = 0.125000 E+00 

DENS = 0.250000 E-03 

EXANG = 0.360000 E+03 (complete ring; 360®) 


Format 

5E15.6 


^The e and the "mciximum strain inspection and statement" features have been 
cr 

omitted. 
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Format 


Card 2 715 



IK 

= 

36 




NOGA 

= 

3 




NFL 

= 

4 




NSFL 

= 

3 




MM 

= 

300 




Ml 

= 

10 




M2 

= 

10 



Card 

3 




5E15.6 


DELTAT 

= 

0.300000 E-05 




THETA 

= 

0.0 (first node is on the +Z 

axis) 



CRITS 

= 

0.100000 E+01 




DS 

= 

0.0 (strain-rate effects are 

neglected) 


Card 

4 




4E15.6 


EPS(l) 

= 

0.425000 E-02 




SIG(l) 

= 

0.420000 E+05 




EPS (2) 

= 

0.300000 E-01 




SIG(2) 

= 

0.500000 E+05 



Card 

4a 




4E15.6 


EPS (3) 

= 

0.140000 E+00 




SIG(3) 

= 

0.650000 E+05 



Card 

5 




4F15.10 


AXG(l) 

= 

-0.7745966692 




AXG(2) 

= 

0.0 




AXG(3) 

= 

0.774596692 



Card 

6 




4F15.10 


AWG(l) 

= 

0.5555555555 




AWG(2) 

= 

0.8888888888 




AWG(3) 

= 

0.5555555555 
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Format 


Card 7 

TXG(l) 

TXG(2) 

TXG(3) 

TXG(4) 

Card 8 

TWG(l) 

TWG(2) 

TWG(3) 

TWG(4) 

Card 9 

NBCOND 

Card 10 

NQR 


= -0.8611363115 
= -0.3399810435 
= 0.3399810435 

= 0.8611363115 . 

= 0.3478548451 
= 0.6521451548 
= 0.6521451548 
= 0.3478548451 

= 0 (no prescribed displacement 

conditions) 


= 0 


(no prescribed elastic restraints) 


Cards 10a and 10b are not required since NQR=0. 


Card 11 


4F15.10 


4F15.10 


915 


415 


NV =0 (no initial velocity distributions) 

Cards 12, 13, and 14 are not used since NV=0. 


Card 15 


4E15.6 


TBEGIN 

TFINAL 


= 0.0 




= 0.400000 E-03 ^ 


total forcing function lasts 
400 ysec; forcing function has 
zero amplitude at t=0 


AMPIFV =0.0 


AMPIFW = 0.0 


Card 16 


315 


NOFTl = 0 

N0FT2 = 0 

NOFT3 = 3 (three local sine-shaped 

force distributions) 
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Cards 17 and 18 are not required since NOFT1=0 and NOFT2=0, respectively 


Card 19 

NSTF3(1) 

NELF3(1) 

RT03V(1) 

PT03W(1) 

Card 19a 

NSTF3(2) 

NELF3(2) 

RT03V(2) 

RT03W(2) 

Card I9b 

NSTF3(3) 

NELF3(3) 

RT03V(3) 

RT03W(3) 

Card 20 

T2 

AMP2FV 

AMP2FW 

Card 20a 
T2 

AMP2FV 

AMP2FW 


Format 

2I5,2E15.6 

= 1 (first element and 

_ ^ number of elements over 

which the first sine- 
shaped force distribution 
is to be prescribed) 

= 0.0 

= 0.800000 E+00 


2I5,2E15.6 

= 13 
= 3 
= 0.0 

= 0.900000 E+00 


2I5,2E15.6 

= 25 
= 3 

= 0.0 (no circumferential force 

component) 

= 0.100000 E+01 

3E15.6 

= 0.200000 E-03 

= 0.0 

= 0.2500000 E+04 


3E15.6 

= 0.400000 E-03 
= 0.0 
= 0.0 
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The total input data deck for this example problem should appear as 
follows : 


0. 733750E + 01 
36 3 4 

0.300000E-05 
0.625000E-02 
0.140000E+00 
-0.7745966692 
0. 5555555555 
-0. 8611363115 
0.3478548451 
0 
0 
0 

0.0 

0 0 3 

1 3 0.0 

13 3 0.0 

25 3 0.0 

0. 200000E-03 
0.400030E-03 


O.lOOOOOE+01 
3 300 10 

0.0 

0. 420000E+05 
0.650000E+05 
0.0 

0. 8888886388 
-0.3399810435 
0 . 652 1 4515 4 8 


0.4000006-03 


0.125000E+00 

10 

0. lOOOOOE+01 
C.300000E-01 

0.7745966692 
0.5555555555 
0.3399 81£435 
0.6521451548 


0.250000E-03 

0.0 

0.500000E+05 


0.861 1363115 
0.3478548451 


0.0 0.0 

0.800000E+00 

0.900000E+00 

O.lOOOOOE+01 

0. 0 0.250000E404 

0.0 0.0 


0. 360000E+03 


6.2.2 Solution Output for Example 2 

For illustrative purposes and in the interest of conciseness, only the 
solution output for the following printout cycles 0, 1, 10, 20, 30, 40, 50, 
100, 200, 290, and 300 is presented: 
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***JET3B**** A SPATIAL FINITt fcLcMt'lT AND HJJBUL T TEMPORAL OPERATOR PROGRAM 
USED TO CALCULATE THE wUNlIHEAR RESPONSES OF A UNIFORM THICKNESS CIRCULAR 
COMPLETE RING WITH THE FOLLOWING PARAMETERS 
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THERE IS NO INITIAL IMPULSE 


J’C 0 TIME (SEC. I ° J.J 
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KINETIC ENERGY (IN. -Lb.) = Q.O 
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6.3 A Variable Thickness Arbitrarily Curved Partial 
Ring Example' *' 

The geometry of the structure, as shown in Fig. 7c, is a partial ring of 
1.5 in. width and of thickness varying linearly from 0.1 in. at one end to 0.3 
in. at the other. One end is hinged smoothly and a limited portion of the ring 
is subjected to a distributed elastic restraint (elastic foundation) with modu- 
lus 1000 psi. The ring is subjected to a normal-direction forcing function of 
magnitude 5000 lb at time zero and decreasing linearly to zero at time 400 Usec, 
the force is assumed to be distributed uniformly over a 9-degree segment. 

The ring material is considered as being elastic perfectly-plastic 

7 

(EL-PP) with a yield stress of 50,000 psi and an elastic modulus of 10 psi. 
Strain-rate effects are considered to be negligible, and the mass density is 
0.25 X 10 ^ (lb-sec^) /in^. 


Ten equal-length finite elements are used to model the partial ring. 


Let the JET 3C program be used to calculate the structural response. 
Printout is desired every 30 cycles, and the total run will be 900 cycles. 

The incremental time interval At to be used for this example will be calculated 
by the program by setting At=0.0 in Card 3. 

6.3.1 Input Data 

The values to be punched on the data cards are as follows: 

Format 


Card 1 


2E15.6 


B 

DENS 


= 0.150000 E+Ul 
= 0.250000 E-03 


Card 2 


IK 

= 

10 

NOGA 

= 

3 

NFL 

= 

4 

NSFL 

= 

1 

MiM 

= 

900 

Ml 

= 

30 

M2 

= 

30 


715 


The and the 

omitted. 


"maximum strain inspection and statement" 


features have been 
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Format 


Card 2a 


4E15.6 


Y(l) 

Z(l) 

ANG(l) 

H(l) 


= -0.873300 E+01 

= 0.0 

= 0.900000 E+02 


initial Y coordinate, 
Z coordinate, slope, 
and thickness at the 
first node 


= 0.100000 E+00 


Cards 2a are repeated for each node until the total eleven (=IK+1) 
nodes are described. 


Card 3 


DELTAT 

= 0.0 

CRITS 

= 0.100000 

DS 

= 0.0 


Card 4 


EPS (1) 

= 0.500000 

SIG(l) 

= 0.500000 


Card 5 


4E15.6 

(to be calculated by the 
program) 

E+01 

(strain-rate effects are 
neglected) 

4E15.6 

E-02 

E+05 

4F15.10 


AXG(l) 

AXG(2) 

AXG(3) 


= 0.1127016654 
= 0.5000000000 
= 0.8872983346 


Card 6 


4F15.10 


AWG(l) 

AWG(2) 

AWG(3) 


= 0.2777777778 
= 0.4444444444 
= 0.2777777778 


Card 7 


4F15.10 


TXG(l) 

TXG(2) 

TXG(3) 

TXG(4) 


= -0.8611363115 
= -0.3399810435 
= 0.3399810435 
= 0.8611363115 
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Format 


Card 8 



TiVG(l) 

= 

0.3478548451 



TWG(2) 

= 

0.6521451548 



TOG (3) 

= 

0.6521451548 



TOG (4) 

= 

0.3478548451 


Card 

9 



715 


NBCOND 

= 

1 

(one prescribed displace- 
ment condition) 


NBC(l) 

= 

^ ] 

smoothly-hinged at node 11 


NODEB(l) 

= 

J 


Card 

10 



315 


NQR 

= 

1 



NORP 

= 

0 



NORU 

= 

1 

(one distributed elastic 
restraint) 

Card 

10a is not 

required since N0RP=0 


Card 

10b 



2E15.6,8I5 


SCTU 

= 

0.100000 E+04 

(elastic foundation modulus 





in translation) 


SCRU 

= 

0.0 



NRST(l) 

= 


starting element and numbers of 


NREU(l) 



elements over which the elastic 



^ J 

foundation is to be distributed 

Card 

11 



415 


NV 

= 

0 

(no initial velocity distri- 
bution) 


Cards 12, 13, and 14 are not needed since ^=0 
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Format 


Card 15 


4E15.6 



TBEGIN 

= 0.0 



TFINAL 

= 0.400000 

E-03 


AMPIFV 

= 0.0 



AMPIFW 

= 0.500000 

E+04 

Card 

16 




NOFTl 

= 0 



NOFT2 

= 1 



N0FT3 

= 0 


Card 

17 is not 

required since NOFT1=0 


Card 

18 




NSTF2 (1) 

= 4 

1 


NELF2(1) 

= 1 

J 


RT02V(1) 

= 0.0 



RT02W(1) 

= 0.100000 

E+01 

Card 

19 is not 

used since NOFT3=0 



Card 20 


(no circumferential force 
component) 

315 


(one local uniform force dis- 
tribution) 


215, 2E15.6 

starting element and number of 
elements over which the uniform 
force distribution is to be 
specified 


3E15.6 


T2 

= 0.400000 E-03 

AMP2FV 

= 0.0 

AMP2FW 

= 0.0 
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The input deck for this example problem should look as follows: 


0.150U00E+01 
10 3 4 

-0. 8733C0E *-01 
-0. 862548E+01 
-0. 830553E+01 
-0.778116E+01 
-0. 7G6515E+01 
-0. 617516E+01 
-0.513313E+0l 
-0. 396470E+01 
-0.269865E+01 
-0. 1366L5E+01 
0 . 0 
0.0 

G. 5000Q0E-02 
0. 1127016654 
0.2777777778 
-0. 861 13631 16 
0.3478548451 
13 11 

10 1 
0. lOOOOOE + 04 
0 

0.0 

0 10 

4 1 0-0 

0.400010E-03 


0. 250000E-03 
I 900 30 

0 . 0 

0. 136615E4-01 
0. 269865E+01 
0. 39647CE + 01 
0. 513313E+0 1 
0.617516E + U1 
0. 706515E+J 1 
0. 778U6E+01 
0. 8305 5 8E<-01 
0. 862548E+01 
0. 873300Et01 
d.lOOOOOE +01 
0.5U0000E+05 
0.5000000000 
0.4444444444 
-0. 3399810436 
0.6521451549 


0.0 

0.400000E-03 


30 

C. 900000 E *02 
G. 810000E + 02 
G. 72 00 00 E +02 
C. 6300 00E+02 
C.540000E+02 
0.4500008*02 
0.360000E+02 
0.270000E+02 
0. 1800 00E+02 
C.900000E+01 
0.0 
C.O 

0.8872983346 
0.2777777778 
0. 339981 0^36 
0.6521451549 


1 4 

G. 0 


0. lOOGOOE+00 
0. 120000E+00 
0. 140 000 E +00 
0.160000E+00 
0.180000E+00 
0 .200000E+00 
0.220000E+00 
0.240000E+00 
0. 260000E+00 
0.280000E+00 
0.300000E+00 


0.861 1363116 
0.3478548451 


0.500000E+04 


O.lOOOOOE+01 
0.0 C.O 


6.3.2 Solution Output for Example 3 

For illustrative purposes and in the interest of conciseness, only the 
solution output for the following printout cycles 0, 1, 30, 60, 90, 120, 150, 
180, 210, 240, 270, 300, 570, 600, 870, and 900 is presented: 
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♦♦♦JET3C*** A SPATIAL FINITE ELEMENT AND TEMPORAL CENTRAL DIFFERENCE PROGRAM 
USED TO CALCULATE THE NONLINEAR RESPONSES OF A VARIABLE THICKNESS ARBITRARILY 
CURVED PARTIAL RING WITH THE FOLLOWING PARAMETERS 
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TIME STEP SIZE USED IN PROGRAM (SECI = 0.969761E-06 


J= 0 TIME (SEC.) = 

TOTAL ENERGY INPUT (IN.-LB 
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FIG. 1 GEOMETRICAL SHAPES OF THE STRUCTURAL RING 
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FIG. 2 NOI-IENCLATURE FOR GEOMETRY, COORDINATES, AND DISPLACEMENTS 
OF CURVED-BEAM ELEMENTS 
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FIG. 4 SCHEMATIC OF INITIAL-VELOCITY PROVISIONS 




FIG. 6 FLOW CHART OF SOLUTION PROCESS FOR PREDICTING LARGE- 

DEFLECTION ELASTIC-PLASTIC TRANSIENT STRUCTURAL RESPONSES 
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APPENDIX A 


GOVERNING EQUATIONS ON WHICH THE PROGRAMS ARE BASED 


A.l Variable Thickness Arbitrarily-Curved Rings 


The discrete element to be considered is a general curved beam element 
as shown in Fig. 2b. The slope, (j>, of the centroidal axis, which is the angle 
between the tangent vector and the y-axis of the local reference Cartesian co- 
ordinate may be approximated by a second-order polynomial in r| as follows : 

'0 'I - £ k (A.l) 


( 7 ) = B, + b, + b, V 


where r) is the length coordinate measured from node i along the centroidal 

axis, and the constants b , b. , and b^ can be determined from the known initial 

o 1 2 

geometry of the curved beam element. Assume that the change in element slope 
between nodes i and i+1 is small so that 


and 


cos ( ^ I 

sin ( 4’i^i - - 4’,- 


(A. 2a) 


(A. 2b) 


This restricts the slope change within an element to ^ 15 degrees. The arc 
length, of the element is approximated to be the same as the length of a 
circular arc passing through the nodal points at the slope <J) . and (p . ; n. 

_ L. (*..,- 4 ',) 

where L. is the length of the chord joining nodes i and i+1 and is given by 

1 I 


U - MX.,- Y,)J 


(A. 3b) 


The three constants in Eq. A.l are then determined from the relations 


cp ^ 0 ) 
f^'si n 4 

yo 




^7. 


= 0 


(A. 4) 
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From Eq. A. 4, the constants in Eq. A.l are found to be 



b, = -2 (+,v, 

bx = 3 ( 4>>, + 4>, ) /( 7,- f 


Accordingly, the radius of curvature, R, of the centroidal axis may be ex- 
pressed as R = - (d<})/3ri) ^ = - (b^ + b^q) and the coordinates Y (n) and Z(n) 
of the centroidal axis are given by 

Y (V = y. +/'^cos[4>fV)*o(Jd^ 


and 


Z (7) = Z, 4>(7) + o(]c( 7 (A.6b) 


where 


d ^ -fan ( 5 '^' _ ) 


(A.6c) 


Y,., - Y, 

The thickness variation is approximated as being linear between nodes; 


thus 


h (p - ( I " 


7. 


(A. 7) 


Employing the Bernoulli-Euler hypothesis, the displacement field v, w 
of the beam may be specified by the middle plane displacements v and w, and 
the rotation, (p, as follows: 


where 


V- ( ^ , 1 ) - ir ('J ) - g ^ (>f ) 

SZ C g . = to- ( rj) 


■Vf ( 7 J 


d 

' R. 


(A. 8) 


(A. 8a) 
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To account for the strain-inducing modes and the rigid-body modes, the assumed 
displacement field takes the form: 


\ 

/ 

TA 





sin 4^ 
005 ^ 


-(7 COS )+ )sin (4^+o( j 
i 7 -Z^)Sin (Y~Yi ) cos o 


0 0 




(A. 9a) 


or in more compact matrix form, Eq. A. 9 becomes 









The generalized displacements {q} are selected so that there are four degrees 


of freedom v, w, \p, x - (3v/3r|) + w/R at each node of the element; 


where 

iir. <xr. 


~Xa "^+1 



W]iP} 

(A. 10) 
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-sin 
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cos 4’., 

A(,3 
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7/ 
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0 
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nU^\ 
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1 



27 . 
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(A. 10a) 
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and 


^53 = ( “ yi- )5 i>i(4;„ + cI)- ) cos(<^v.-"oO 

(A. 10b) 

-^63= ( Yj„-X)cos(<j5v,+c^)+(Z,v,-2.)S'>i(cj>v,-^d) 


Corresponding to the assumed displacement field Eq. A. 9, one finds 

_>? 


M.= l 0 0 I in -_|'jjpJ = LG^jjp} 


(A. 11a) 


and 


^=L0 0 0 1 ^ ^ ^7 3 7J Jp)sLQ,Jfp} 


(A. 11b) 


Under the Bernoulli-Euler hypothesis, the only nonvanishing strain com- 
ponent and corresponding stress component are the axial strain, C, and axial 
stress, a. For this case, the nonlinear strain-displacement relation may be 
expressed as: 

£ = £. + C K 


Where 


- ^JL ^ + — ( 2M. - 
H t ^ dri 

s l 3 u {yl+ jL mjI Bjt 


^ ^ dTf 


dvf_-tr\ = 


R 




(A. 12a) 


Combining Eqs. A. 9 through A. 12, one obtains 


= f U(7'j {A"] \f\ 
K = 


236 



where 

L^ j — L I Ll] [ A ] for i . 1, 2, 3 (A.14a) 

iB,_,[LI]=lO 0 o 1 37^_J 

lBj [UJ=lO 0 \ 2rj 37 ' 

lBJ [U] = L 0 0 0 (-?4>'') 

‘ ‘ (A. 14b) 


In the process of solution, it is necessary to evaluate the strain in- 


crement Ae from time t , to time t . Using Eqs. A. 12 and A. 14, one has 
m m-1 m ^ 

^ ^ ^ fin, (A 

Where ^ ^ ^ ^ ^ \^i\ ^ ^ ^ 


(A. 15) 


^ L ^^3 J 


, A 

2 




The consistent mass matrix of the ith discrete element may be obtained 


from the expression for the )cinetic energy, T^, as follows: 


X = J ([[ P. = j- ff(p.\ilr-YH (A.16) 


2 • 


X = pi 

I Y i 


p> ^ ^ c> 

0 Po ly f] 0 


0 B 


n h 


and V. is the initial undeformed volume of the ith discrete element, p is the 
1 o 

mass density per unit volume, b is the width, and h is the thicJcness given 
by Eq. A. 7. 


with the assumption that the velocity field is of a form which is con- 
sistent with the displacement function, Eqs. A. 9 and A. 11, one has 




iO- 

T ) 


> = 


Lli'?) 




Substituting Eq. A. 17 into Eq. A. 16b, one has 

T 


X- = i ip rA"'jY’‘[N]'[Bj[N]rf'?[A'] \ p 


(A. 17) 


(A. 18a) 


X = 7L^jrm]{^l 

where the consistent mass matrix [m] of the element is 

c^] = [A‘T Y''[Nf[B][N]d7 I A'] 

Jo 


(A. 18b) 


(A. 18c) 


The equivalent generalized nodal forces which correspond to the ex- 
ternally-applied loading can be obtained from the variational statement of 
the work of the externally-applied loading, 6w^: 


where “ Fv-*7F^ 3 \~ -u ^ ^ ^ 


(A. 19a) 


(A. 19b) 


is the externally-applied time-varying forcing function. 

Substituting the assumed displacement function, Eqs. A. 9 and A. 10 into 
Eq. A. 19, one has 

n- ) „ (A. 20) 

Jo 
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where 


A-']\ f i'‘ I QJ U /- > 


7^-, 


= element generalized nodal load vector 


(A. 20a) 


For a load concentrated at n of the element (i.e., g. (0) = g.6(n - n ) » for 

c lie 


i = V, w) , one has 


where 


/c 
and 


CO 


^ /w 

sf<i>„ ) 5.vi(4>yj 7c 0 


(A. 20b) 


0 rjl yjl 


sr>i(4>^j cos(<j>,j 0 7c 7c o o 

( / J ,3 = ( - 2, } s. n ( - Y ) cos ( 4,^ -H cO 


(A. 20c) 


(A.20d) 


For loading distributed uniformly over the element (i.e., g^(o) = g^ for i = 
V, w) , one has 


) / 1 ~ r A~']^ \ -i' ^ 


where 


[f'A = 




(A.20e) 


(A.20f) 


For loading distributed linearly over the elenent, (i.e., g. (n) = g. + g.,H 

1 lO il 

for i = V, w) , one has 


where 


(A.20g) 


(A.20h) 
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and 





The equivalent nodal force which corresponds to the internal axial 
stress, 0, also can be obtained from the expression of the variation of the 
work of the axial stress : 


^ U- ^ fff d V = fff 
v;- I/,- 


(A. 21) 


Substituting Eq. A. 14 into Eq. A. 21 and introducing the stress resultants for 
the beam cross section 


L =/f rd A , fy]=ff (t; dA 

A A 


where the integrations being taken over the cross section, A, of the beam 
element, L, is the internal force, and M is the internal bending moment of 
the cross section, results in 


= idfi ( { M ■" ( h) 


where 

\f \ = //■ ( }!>,} L+ iDjj M )d^ 
ih] - { fr>4 L )d>i 


Note that {p} and [h] are quantities pertinent to the unconventional formulation 
of equations of motion, Eq. 2.3. 

In the conventional formulation , Eq. 2.2, the variation of the work of 
the axial stress, 6u^, is expressed in terms of displacements, and the plas- 
ticity effects are taken into account through the use of "effective plastic 
loading" . 
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By substituting the relation 


^ = E(g -£^= E 

into Eq. A. 21, one has 

ju, ,,.33, 

Employing the strain-displacement relation, Eq. A. 14, Eq. A. 25 becomes 

W, -LSfjy^'({D,fEULDu )d I ff 

/I /I 4 

+ fJ'Ei, i 4 } L D3 J f j ^ D3 J L D,J ; 
-L^|J ( 

(A. 26) 

where 

Ikl ^fJ‘ilD.\Eamj-^D^\^LD,])dJ^ ,,.33^, 

ID, )dv 

rx 
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(A.26d) 


In Eqs. A. 26b and A. 26c, er is the total plastic strain at the end of 
the mth time step. Thus 


A W-l ^ j> 

e = 2 : 

/Ti } 


(A. 27) 


The effective stiffness matrix supplied by the elastic restraints may 

be obtained from the variation of the work done by the elastic restoring spring 

forces, 6w : 
s 

— S 1A4 ~ ( l^fV (A.28) 


-^V\/s = 


where 


= V J J YJ ( C ] - X M? 
JO i J 

n 

’ M » *-; I 


(A. 28a) 


(A. 28b) 


and k. and k are the linear and torsional elastic spring constants, respec- 
tively. 

Substituting the assumed displacanent function into Eq. A.28, one has 


hw, =L5^4/i"f/;^'fNrfc][N} iunn) 


(A. 29) 
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where 


lk> [A'‘iYJ' [Nf[C][N]d^ [^"J 

= effective element stiffness matrix supplied by the 
elastic restraint 


(A. 29a) 


Because of nonlinear material behavior, although the strain variation 
through the beam thickness , by the Bernoulli-Euler hypothesis , is linear , the 
variation of stress across the thickness may be nonlinear. For computational 
convenience, the stresses are evaluated at selected Gaussian points across the 
thickness, and the corresponding weighting factors are used in evaluating the 
pertinent integrals by Gaussian quadrature. The strain-hardening behavior of 
the material may be accounted for by using the mechanical sublayer model in 
which the material at each Gaussian station is treated as consisting of equally- 
strained sublayers of elastic, perfectly-plastic material, with each sublayer 
having the same elastic modulus but an appropriately different yield stress. 

For example, if the yield strain of the kth sublayer is the yield stress 

of that sublayer is 


where E is the elastic (Young's) modulus. 


(k = 1, 2, 


n) 


(A. 30) 


An illustration of the method of computing the axial stress and/or 

plastic strain increment is presented as follows. One begins by knowing the 

sublayer stress a.. , at time t , for the kth sublayer of the jth depthwise 

3 k,m-l m-1 

Gaussian station, and the strain increment Ae . at station j at time t (that 

j ,m m 

is, the strain increment from time t , to time t ) . One then takes a trial 

m-1 m 

value (superscript T) of a., which is computed by assuming an elastic path: 

3k, m 


T 


— 0^- L f- A ^ ' 


rrt 


(A. 31) 


A check is then performed to see what the correct value of o., must be. 

]k,m 
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^k.^ ^ ^ok 


(T. I — Cr I A 

rr, --(T. and Aft ^ 0'ik,i^^^k 

(A. 32) 


This procedure is applied to all sublayers of each Gaussian station j ; 
having done this, the axial force and moment of the beaun cross section can be 
determined by 

L = (J (Td A ^ ^ f ( f ^f'k Ajk ) 

M -if (T(;dA=kj-z U.33, 

A ^ 


In a simileu: manner the integration of the plastic strain over the 
cross section of the beam element can be determined by 


ff e^dA 


( ^ ^ ik ) 




(A. 34) 


where A^^^ is a combination of the mechanical sublayer weighting factor and the 
Gaussiaui weighting factor W^, which is defined by 


A^k = ^(E^- ) 


(A. 35) 


In Eq. A. 35, is the Gaussian weighting factor and 


Ek = 






(A. 36) 


is the kth slope of the polygonal approximate stress-strain diagram. 
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If desired, the sublayer yield stresses may be treated as strain-rate 
dependent. Since the strain increment at the jth Gaussian station and hence 
the strain rate is known at this stage of computation, then the rate-dependent 
yield stress os this kth sublayer at station j is 




A £, /d "t ^ 

D 


where D and p are empirically-determined constants for the material 
and may, in general, be different for each sublayer, 
is the static uniaxial yield stress of the kth sublayer 
at any jth Gaussian station 


(A. 37) 


A. 2 Uniform Thickness Circular Ring 

For application to a simple circular ring, the geometry and nomenclature 
of a typical circuleu: ring element is shown in Fig. 2a where the local and 
global coordinates are arranged to take advantage of the symmetry of the ring 
element's geometry. For a circular ring element, the various matrices which 
have the same definition as those defined in Subsection A.l are listed in the 


following : 


"[ a:?,', = I 


where 


2 


^ --K = 


(A. 38) 


\coS7\ -5inA - Fi ( I-cosAcosA') V o 0 V 7 

Ll(?t 2 3 (A. 38a) 

^ ^{n7\ cosA f\(Sih?\cosA^ 0 ^ ^ 0 0 J 


(A. 39) 


where 


0 0 I -X 5 / -i --Ij 


H K 


(A. 39a) 




= L I Pi 


(A. 40) 
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where 


L<S-^ <7d = L 0 0 0 I i 27 S 7 "j 


-L1^/ Tr.' v;-, 


where 


M] = 


co5y\ S'nA -RH-coA) “f- 

-*S/>iA COS A. -fisi^AcosA 0 

00 13 ^ 

-10 0 0 I 


cosA -^iViA -Rd-(osA) -|- 
5 /'I A c<jjA RsirtAoosA 0 
00 ' 'Jr 

0 0 0 I 


4K 


sS" 

5 

4, 

_A_ 




where ^ = :r— 

'—'A > 


IZ + M. -i- -L f 

F\ 2 ^ P, / 

lAj + f LJJ f|} 


L^J =lB, JCL/f^jJW'J 


for i = 1, 2, 3 


where in Eq. A. 42b, 
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= L 0 0 

lB,J[LI]=L 0 0 

L ^3 -I [U ] = L 0 0 


0 I a' ^ 2^ 3^ J 

-1 zn -l\ 

a ” ' R R -' 


I 


I 


0 2 




37 

J (A. 42c) 



'ir 

> 

iir " 
^ . 

where 

cosX 

[ N 3 = 



0 

\ 


= [ N ] 


R( l-co^y\ cosA) Yj 0 
Rsin'XcosA) 0 ^ 


0 


7 


0 


I ^7 27 


(A. 43) 


^ 0 0 

2 _2l' -Zl' 

R K. 

(A. 43a) 


Cm] = “^7 M"J = [-4"] [»^'] f/l"j 

2 

= the consistent mass matrix of the element. 


(A. 44) 


where 


[m'l = 


m 


M , 


0 

mA 

0 

'^33 . 


0 

Yy/z 

0 


0 

m/, 

0 

V 


0 

n ^63 

0 

K 

0 

yy ?73 

0 

0 


0 



SYMMETRIC 


m 


55. 

O 


m 


(,(> 


0 


m 


?(> 


m 


77 


YYi 




0 


m 


33 


(A. 44a) 
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and 


- m 


21 - yn S 


^31 - m R ( - 2 F{ sin A s cos a; 

^ 61 = ^ fC(^- 2 A^cosA->-^A^sinJ{ + i 2 AcosA-\ 2 sihA) 
^71 = RU 2 A^sinA+ 4 AcosA- 4 sinA) 

%2 - ~mR (~ 2 AcosA~^ 2 s'/ 2 iA ) 

%z - FC ( ZAsfnA -^4- A cos A - 4 ^'>1 A ^ 

^~^f{i- 2 A^cosA^CAsinA-^l 2 Aa>sA-llsiciA) 

^33 ~ wR C S -f S COS^A - 2 f\si’n 2A )+ 

^ /'“s^ ^ 

=-m R (- 2 AC 0 SA ^^J^sinA-^ \ 2 AcosA-l 2 si'nA)cosA-^ ' 
^73 cosAiZA s^nA-^ 4 AcosA~ 4 sinA)]- 

'^^44 ^ ^ D2 J TT" . - 7~5“ 


^4 ^ '"'I Rf A 2 

z' <> c 3 

'"84 =(m-^)^ 
4 ^ 0 /? 

= - 3 _j 5 f 

Sof\ 


Is.’ 

5o 3 

^ 4 

^ 0 

yyi / = c;;^^ L )_5f 

^ So 


where in Eq. A. 44b, m =p bh, I =p (bhVl2) 

o o 
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= element generalized nodal load vector equivalent to externally- 
applied loading (A. 45) 

For a load concentrated at n = H of the element (i.e.,g. =g.6(n~ H) 

c lie 


for i = V, w) , one has 




iv /tr 


where 


(A. 45a) 


2 v,^ 


^1_|co5A^^ ~F[0-cos^^^CosA) % 0 0 


[siViA^^ cos'K^^ f\sin')\^^cosA 0 rj^ ^ ^ 

For a loading distributed uniformly over the element (i.e., (g^(i1) = g^ 
for i = V, w) , one has 


{/} M J f /« J 


(A. 45c) 


where 


j 7_f2F^5'iAA 0 -f{sA-f[sini2A) 0 0 o1 

^ I 0 2f{^<>^A 0 0 0 0 0 

I Z A (A.^ 

For a loading distributed linearly over the element (i.e., (g. (ri) = g. + 

X lO 


^il*^ for i = v,w) , one has 




(A.45e) 


" 1 /w ] 


_(zF(s,'nA 0 -f(s-^Rs>n(2A) 0 0 0 1 


b 2 R5\nA 


0 7Y 0 00 


(A.45f) 


and 



R^(-2AcosA 
I -^2 6iy)A) 


-\^(-2A c6sA 
2 sin A) 

0 


0 

F(^co5A i~2AcosA 
-i-lSinA) 


n ° 
0 0 


0 

50 



0 0 


where 


^ U, - i-Jfj iif\ + f/,} 

if} - (^r>jL -{D3 )m)^7 


(A.45g) 
(A. 46) 


= i| ( mjLD,jL)d>^ 


(A. 46a) 


where 

=-^fi 

rU = r/iTr/^'j r/i"'} 


(A. 47) 


(A. 47a) 
(A. 47b) 


(A. 47c) 
(A.47d) 
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and 


[k> 




0 


(k 


k 


SYrU4£TRIC 


ns 


'(k.s^^zk c) 

(uK 


0 

0 


0 

0 


(M 

V/ 




■^k.s) 


(k +h. )sl 

1^2 J A 


(SAl'-kl.) 

8oR ^ R> 


0 


0 


where in Eq. A.47e, k^ = Ebh, k^ = Ebh /12 


^ ' R‘'So 

(A,47e) 




[kj =f/\Yr. fN]'[C][N]<^V [A"] 

= effective element stiffness matrix supplied by 
elastic restraint. 


(A. 48) 


A. 3 Solution Method 

A. 3,1 Timewise 3-Point Central-Difference Operator 

The timewise 3-point central-difference operator is used to solve the 

dynamic equations of motion expressed in the unconventional form, Eq. 2.3. 

In this solution scheme, the relations between displacements and displacement 

increments at any instant of time t (subscript "m") are 

m 

^ 

' i u ) m- 1 (A. 49) 




and 


n'l = f A 


+ — 




m 


(A. 50) 
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At time t , the acceleration may be expressed in terms of displacement 
m 

increments by the following central-difference finite-difference expression: 

^ ^ 1 ^ ^ ^ ^ Q (Ai)^ 


(4t; 


- ^ (4t)' 


(A. 51) 

u I y 

Employing Eq. 2.3, the unconventional form of the dynamic equations of equi- 
librium at any time instant t becomes 

m 


f M'j tfl -{Pl-fHlffl 


(A. 52) 


Since the right-hand side of Eq. A. 52 is known, one can solve for fq*} . 


With {q} now known, one can calculate {Aq*} , from Eq. A. 51 as 

m m+i 


m 


^ if i 


n 


(A. 53) 


Thus, from Eq. A. 49 one has 

+ / i 


ffL., = ffL " 1 


(A. 53a) 


m- 


With the specified initial velocity the load acting at time zero 

{f*} , the calculation scheme commences by assuming the increment of displace- 
o 

went between time-step zero and time-step one is 


where {q*} can be calculated from 

=iFl-rK:jiA 

where it is assumed that the {q*} are prescribed. 

o 


(A. 54) 


(A. 55) 


(A. 56) 
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After the calculation of {Aq*}^ and the strain increment at any 

point in the element can be obtained. With the strain increment available, 
the stress increment and stress is computed from the stress-strain relation. 
Then the stress resultants are obtained. Equations A. 52 and A. 53 furnish the 
displacement increment and displacement for the next time step. The process 
is cyclic thereafter. 

A. 3. 2 Houbolt's Operator 

The Houbolt operator is a 4-point backw^.rd difference implicit operator 
and is chosen to solve the equations of motion expressed in the conventional 
form, Eq. 2.2. In this solution scheme, the {q*} at any instant of time 
t^^j^ are approximated by a 4-point backward-difference expression: 

} oH = 2 nX., -s^x 0 

^ (A. 57) 

Employing Eq. A. 57, the conventional form of the dynamic equations of equi- 
librium, Eq. 2.2, becomes 

(z[M> wt ft f K^J )> ? f L ,=K/<5 F1. + {Fj 'L,-^ ifX" ^ 

(A. 58) 


r*NLi r*Li 

It should be noted that the generalized nodal load vectors iF ) , , iF } , 

*NL q m+1' p m+1 

and {f^ ^ni +1 (which may be due to large-deflections and elastic-plastic 
effects) depend on the displacements (or stresses, strains) at that time 
instant but these remain to be determined; thus, linear extrapolation 

by using the generalized nodal load vectors at two previous time steps is 
employed to estimate these forces values : 

i ftL * ^ ^ KX, ^ F n F Jl - f ) 




m-i 


1 fpl--. 


"fF^ 


nLi 


irn- 


(A.59) 
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In order to apply the calculation method represented by Eqs. A. 58 and 

A. 59, one must take into account the prescribed initial conditions, {q}^ , 

{q} , and {f*} . The following "starting procedure" for this method provides 
o o 

the generalized displacements {q*}^^ at t^ = lAt, and {q*} ^ at a negative 
(fictitious) time instant “ lAt. 

By employing the following approximations: 

" ° 6(^t) 

^ ■’ o (At J 

one has 

i A, = + 2(f), - {f , 

( ff - ?jf}. -8 If}, ,,., 3 , 


(A. 61) 


one has 


(A. 62) 


Substituting Eqs. A. 62 and A. 63 into Eq. A. 58 for m = 0 and approxi- 
mating the generalized nodal load vectors due to large-deflections and elastic- 
plastic effects at time step t^ by their values at time zero, one obtains 

- rM"j(z f }, 


(A. 64) 


where {q} can be calculated from 
o 


= ?rh-aKi-[K:])in u.es, 
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since the right-hand side of Eq. A- 64 is known, one can solve for 
{q*}^. After the have been determined, {q} ^ can be computed from 

Eq. A. 62. One can then proceed to calculate {q*} ^ from Eqs. A. 58 and A. 59, 
then etc. 
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